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EDITORIAL 




L'impatience monte 
dans les rangs des 
"ORICIENS" devant 
le retard pris par le 
TELESTRAT. 

Les exemplaires, mis 
en démonstration 
chez les revendeurs 
ont démontré les 
capacités de la car¬ 
touche télématique ; 
seul le Basic tarde à 
arriver, mais il sera 
ainsi exempt de 
"bugs”. 

Pourquoi un tel 
retard ? 



Tout simplement à cause du dépôt de bilan de la 
société ATV qui produisait les ORIC "made in Nor¬ 
mandie". Coup dur pour EUREKA ? Non ! Le dyna¬ 
misme de la société a permis de mettre rapidement 
sur pieds une unité de production, située à Liva¬ 
rot, qui tournera, dès la fin du mois, au maximum 
de ses possibilités. 

Le TELESTRAT ne va donc plus tarder à arriver et, 
si l'on en juge par l'essor actuel de la télématique, 
est voué à un vif succès. 
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2000 

MICRO 
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Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct avec la rédaction. Ceci est un ser¬ 
vice sans égal I Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9 h à 12 h et de 14 h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé 
dépensez pas inutilement votre argent ! 

Le numéro : 99 . 52 . 98 . 11 . 
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CE N'EST PAS PARCE QUE L’ON A LES MEILLEURS PRODUITS 

JAMAIS DEVELOPPES POUR L’ORIC ATMOS. 

QU'IL FAUT ETRE PLUS CHER ET SE PRENDRE AU SERIEUX. 


Le manuel de référence de l'Oric Atmos. Il a fallu à André Chénière pas moins de 200 
pages pour écrire son étude exhaustive et unique des entrailles de l'Oric Atmos: Etude du 
programme Basic, initiation au langage machine, description de l'interpréteur, atlas de la ROM. 
L'ouvrage était épuisé (et nous avions fait nos frais), mais vous en redemandiez encore et 
toujours... 

Alors, qu'on se le dise, nouvelle édition et tirage limité au prix maintenu de 138 Francs TTC. 

Le manuel de référence de l'Oric Atmos - Travaux pratiques. Partant du principe que 
"la mise en application pratique des notions théoriques acquises est le dernier pas à franchir dans 
la maîtrise totale de son micro ordinateur", André Chénière vous convie à programmer avec lui 
dans ce livre bourré d'astuces et de listings (dont il affirme également qu’il sera son dernier sur 
I'Atmos) et qui vaut 120 Francs TTC. 

LM PLUS. Ce logiciel de compilation basic est le seul à pouvoir vous dispenser de la lecture 
de certains chapitres des deux ouvrages ci-dessus. Ecrivez votre programme en Basic, comme si 
de rien n'était, et LM Plus le traduira en langage machine autorisant une exécution sept fois plus 
rapide. Il reconnaît la plupart des instructions basic à l'exception de celles traitant des nombres 
non entiers telles que SIN, EXP...A vous les avantages du langage machine, sans rien y 
connaître, au prix de 95 Francs TTC. 

AS DES AS ou trois en un pour le développeur de programmes en assembleur : l'éditeur pour 
saisir et corriger du texte source, l'assembleur pour le traduire en codes machine, le 
désassembleur pour décortiquer les programmes écrits en langage machine. Edition sur 
imprimante à tout moment, économie en RAM (6Ko) et en Francs TTC 75. 

Oriscribe. Il est vrai que lorsqu'on a un Macintosh, il vaut mieux utiliser Mac Write. Mais si 
Ton a un Oric Atmos, une imprimante correcte et un rapport ou du courrier à faire, il serait peu 
judicieux de se passer d'Oriscribe: Saisie au kilomètre, copie, déplacement, effacement de blocs 
de texte, recherche et remplacement de mots, affichage à l'écran de 729 lignes de 40 caractères 
ou 486 lignes de 60 caractères, margination, justification, numérotation, saut de page... et tout 
ça pour 150 Francs TTC. 

Edit plus. Pour vos programmes écrits en basic, un éditeur pleine page et plein d'astuces 
permettant, entre autres, la renumérotation sélective du programme basic y compris les goto et 
les gosub, le compactage du programme, un clavier bufférisé autorisant une frappe plus rapide, 
la numérotation automatique des lignes, la compréhension du basic en minuscules ou en 
majuscules... 

Edit plus est vraiment idéal pour ceux qui enseignent le basic car il est livré avec un basic 
francisé le tout au prix indissociable de 75 Francs TTC. 


Tous nos logiciels sont livrés avec une notice explicative complète, dupliqués sur banc spécial 
permettant la plus grande qualité d'enregistrement et sont facilement adaptables aux micro-drives 
et types d'imprimantes sur le marché. 

Vous que nous avons convaincu de passer commande, soyez en remercié, n'omettez pas de 
remplir lisiblement le bon de commande ci dessous sans oublier la participation aux frais de port. 
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-courrier_ 

Hugues BURTIN 
16000 ANGOULEME 

Pourquoi ne passez-vous pas les 
longs programmes (de qualité) à 
raison de 2 ou 3 pages par mois : 
les longs listings sont découra¬ 
geants ! 

La solution a déjà été envisagée... 
Il nous semble difficile de faire 
attendre trop longtemps nos lec¬ 
teurs. Néanmoins, pour un pro¬ 
gramme exceptionnellement long 
(et nous en avons 2 ou 3), la 
publication étalée sur plus de 3 
numéros sera retenue... 


André PREVOST 
37130 LANGEAIS 

Je regrette l'impossibilité d'obte¬ 
nir, de la part des annonceurs, 
des documentations sur le maté¬ 
riel ainsi que l’impossibilité de se 
procurer la ROM seule (sans le 
davier) des nouveaux A TMOS. 
Les "annonceurs" de THEORIC 
peuvent parfois être mis en cause 
mais, à leur décharge, il faut pré¬ 
ciser que, lorsqu'ils ne sont pas 
distributeurs (et non fabricants), 
il leur est difficile de fournir des 
documentations. Bien souvent, 
leurs publicités sont les seules 



Pas d'étiquette 
abonné ou pas 
d'enveloppe self- 
adressée égale pas 
de réponse au 
courrier. Qu'on se 
le dise I 
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descriptions des matériels qu'ils 
possèdent. 

Dans le cas du "errors found", 
ceci n'a aucune incidence sur le 
fonctionnement de l'imprimante ! 
La ROM seule ne peut pas être 
obtenue et, nous vous le concé¬ 
dons bien volontiers, cela est 
contestable car on est obligé de 
payer le prix fort... La solution 
consiste à passer une annonce 
dans THEORIC pour essayer 
d'obtenir une copie de la ROM 
par un lecteur équipé d'un dupli¬ 
cateur d'EPROM. 


THIERRY BURGARD 
86000 POITIERS 

Je n'arrive pas à retrouver les 
adresses de début et de fin d’un 
programme pour le transférer sur 
Jasmin. 

Les adresses de début et de fin 
de fichier sont contenues dans 
des variables système qui sont 
les suivantes : 

ORIC-1 #5F #61 

ATMOS # 2A9 # 2AB 

Jasmin #48D #48F 

On peut lire ces adresses par un 
simple PDEEK(adresse). 


QUESTIONS D'ORDRE 
GENERAL POSEES PAR 
PLUSIEURS LECTEURS 

Je suis intéressé par le drive 
5" 1/4 proposé par T R AN ; 
pourriez-vous me donner davan¬ 
tage de précisions à ce sujet ? 
Que pensez-vous de la carte 


assurant la compatibilité A TMOS- 
PC proposée par TR A N ? 

A ces deux questions, une seule 
réponse... Ecrivez à TR AN pour 
obtenir des renseignements plus 
précis. A la rédaction, il nous est 
difficile de vous renseigner 
davantage. L'adresse de TRAN 
figure dans toutes les publicités... 


Pourquoi, malgré l’indication xxx 
secteurs libres, sur une disquette 
Jasmin, est-il impossible d'ajou¬ 
ter un fichier, même si sa taille est 
bien inférieure à ce nombre de 
secteurs, sans obtenir “DISK 
FULL " ? 

La réponse est assez simple. L'in¬ 
dication du nombre de secteurs 
libres donnée au catalogue n'ést 
en fait qu'une évaluation effec¬ 
tuée par le TDOS. Cette évalua¬ 
tion ne tient pas compte des 
tables servant de "liens" entre 
les secteurs, qui occupent elles- 
aussi de la place sur la disquette. 
Plus il y a de fichiers (au sens 
large) sur la disquette et plus 
l'évaluation est fausse... moins le 
nombre de secteurs restant réel¬ 
lement libres est grand. 

En scrutant la "bit map" au 
moyen d'un utilitaire tel "EASY- 
DISC”, il est possible de savoir ce 
qui reste disponible réellement. 
Le DOS occupe 62 secteurs 
mais... le DOS mixte (ORIC-1 et 
ATMOS) occupe, lui, 124 sec¬ 
teurs : les 62 manquants sont- 
pourtant déclarés disponibles ! 
Avec les fichiers (séquentiels ou 
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théorie. 


directs) le problème est le même : 
des secteurs sont occupés de 
manière "parasite". Ne cherchez 
plus l'erreur lorsque votre Jasmin 
déclare "DISK FULL" et com¬ 
mencez à faire le ménage ! 


QUELQUES CONSEILS 

Lorsque vous nous écrivez, utili¬ 
sez des feuilles différentes si vos 
questions concernent des servi¬ 
ces différents, ex.: abonnement, 
rédaction, commandes, etc. Cela 
nous permettra de vous répondre 
plus rapidement. 


ARTICLES ET PROGRAMMES 

Nous recherchons de bons arti¬ 
cles ou programmes. N'hésitez 
pas à nous contacter si vous vou¬ 
iez avoir le plaisir d'être publié. 
N'oubliez pas que, l'envoi d'un 
logiciel ou d'un article sous- 
entend implicitement que vous 
acceptez sa publication. 

Un dernier point : ne nous 


envoyez vos réalisations que 
lorsqu'elles seront entièrement 
expurgées de tous leurs bugs 
(toutes leurs bogues devrait-on 
dire en français... Bof !). Nous 
recevons encore beaucoup trop 
de programmes présentant des 
anomalies de fonctionnement. 
Si nous avons la preuve que votre 
programme a été "pompé" 
(honte à vous !) sur une autre 
revue ou dans un ouvrage, nous 
nous réservons le droit d'entre¬ 
prendre toute action en justice 
contre vous. Ne riez pas, nous 
avons déjà reçu des contrefa¬ 
çons. 


EUPHORIC 

Merci à Philippe LAFORGUE de 
nous avoir signalé sur le micro¬ 
serveur une petite erreur dans le 
programme "Menu" de LEO¬ 
NARD. Il manque en effet une 
ligne 435 L = L+10, faute de 
quoi, en cas d'erreur lors de la 
saisie, c'est toujours la même 


ligne (10000) qui est mise en 
cause à tort. • 

Rappelons, à cet effet, que cer¬ 
taines erreurs, telle celle-ci, peu¬ 
vent passer inaperçues lors des 
essais que nous faisons sur les 
programmes reçus. 

En effet, si aucune erreur de lec¬ 
ture n'est détectée dans les 
DATA (ce qui est bien sûr le cas 
puisque nous recevons, à la 
rédaction, le programme sur cas¬ 
sette), le défaut ne peut pas se 
manifester. 


MICRO-SERVEUR SORACOM 

Nous vous rappelons que, en 
composant le 99.57.90.37, vous 
pouvez obtenir des informations 
sur THEORIC, sur les livres et les 
services proposés par SORACOM 
et également accéder à une boîte 
postale (messagerie) dans 
laquelle vous pouvez déposer un 
message. L'accès se fait en 
tapant TÉO suivi d'ENVOI. Il n'y 
a pas de mot de passe. Tapez une 
deuxième fois ENVOI. 

Certains n'ont pas compris le 
fonctionnement de ce micro¬ 
serveur et nous demandent de 
leur ouvrir une boîte individuelle 
(n'est-ce pas JACQ ???). Ceci 
n'est pas possible, comprenez-le, 
sinon chacun voudrait sa boîte ! 
D'autres ont évoqué le TELE- 
STRAT... Pourquoi avoir utilisé 
un AMSTRAD au lieu du TELE- 
STRAT ? La réponse est simple : 
le TELESTRAT n'est toujours pas 
disponible et nous ne voulions 
pas attendre avant de commen¬ 
cer notre expérience. 

Dernier point : inutile d'appeler 
avant 19h00 et après 08h00, le 
serveur n'est pas connecté. 



Le thème de ce jeu de rôle n'est pas très engageant ! Un soir de déprime, vous avez vendu votre 
âme au diable et, le lendemain, vous êtes pris d'un cruel remord et vous décidez de la récupérer. 
C'est dans une vieille demeure que commencera votre recherche de Méphisto. 

Les déplacements sont très simples à programmer : une lettre désigne chacun des 4 points 
cardinaux. Des questions vous sont posées, auxquelles vous devez répondre par Oui ou par Non. 
D'autres demanderont davantage de connaissances, et c'est là toute l'originalité du jeu. 

Il vous faudra connaître certains thèmes de mythologie car les questions posées demandent une 
réponse précise... Dommage que rien n'ait été prévu pour passer outre une réponse, car on 
aboutit vite à une situation de blocage. 

Des graphismes simples, de type vectoriel, viennent agrémenter le jeu qui est également ponctué 
d'illustrations sonores et musicales assez réussies. 

Si un voyage aux enfers vous tente, préparez votre ORIC et une bonne pile de bouquins pour 
répondre aux questions. 
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AVEZ-VOUS 
LA COLLECTION 
COMPLETE 
DE TNEORIC ? 

Bon de commande page 3 


EUH... 

PHORC! 


THEORIC présente: - - 

lgSBG| 


Charles NICOLAS 
12, rue Marchadiale 
15300 MURAT 
ne comprend pas les messages 
en allemand dans l'Aigle d'Or de 
LORICIELS. De plus, il voudrait 
savoir comment ouvrir la porte 
qui se trouve en face de la pièce 
où il y a l'aigle de plomb. 

Merci d'entrer en contact direct 
avec lui, si vous pouvez l'aider. 




Dans le listing du 
POULE (THEORIC n° 16), lire 
P= 1 à la fin de la ligne 1670 


programme 

,o 


Le "Calcul des Salaires” (THEO¬ 
RIC n° 17) donnait quelques 
erreurs... de calcul ! Voici la ver¬ 
sion corrigée (les lignes à modi¬ 
fier). 

”358 RM. 

389 RED CENTRE DE CALCULS 

382 REN-. 

381 IFSS(P(>9THEN388 

385 SS!I!=SN!II/189:HN=189 
388 NX=HNtSS(I! 

388 NH= ! INT (NXf 10*2*0.5! !/10*2:50T0371 
371 VX=HV»!$Sa)M.25l’ HEURES 251 

378 VH=(INT!VXtl0*2*0.5!1/10*2 

380 HX=HC*fSS!I)*1.50)' HEURES 591 

382 CH=(INT<HXf10*2*0.5!)/10“2 

383 ST=NH*VH*CH’ SOUS TOTAL 

381 SX=NH*VH*CH*AN*P1*P2*P3-RS’ SALAIRE DRUT 
388 SMINT!SX*10*2«9.5!!/I9*2 

388 ST=SRM.057 ’ SEC SOC 

390 SE=!INT!STH0*2*0.511/19*2 

392 SA=SB«J.058 ’ SEC SOC VIEILLESSE 

391 SV=(INT(SAtl0“2*0.5)1/19*2 

398 RX=SDf0.023’ RETRAITE C0NPL, 

398 RC=!INT!RXD19*2«0.511/10*2 

100 BX=SB*C.0025’ ASS DECES 

192 DC=!INT!DXtlO*2*9.5)1/10*2 

101 CX=SB«0.0231* C0T CH0NA6E 

198 C0=(INT!CXtl0"2*0.5)1/10*2 


108 TX=SE*SV*RC*DC*C0*NU’ TOTAL RETENUE 

110 TR=!INT!TX*10*2*0.511/10*2 
112 NX=SB-TR’ NET IMPOSABLE 

111 NI=!INT!NXtl0*2*0.5l1/10*2 
118 XP=NI-AR-AC ’ NET A PATER 
118 NP=! INT(XPE10*2*0.5!I/10*2 

120 AP= <INT(NPE10*0*0.511/10*0’ ARRONDI PATER 
122 XA=NP-AP ’ NOUVEL ARRONDI 

121 NA=(INT(XADI0*2*C.5!!/10‘2 

128 FA=SS(IH1.25’ TAUX A 251 

128 FB=(INTIFAtl0*2*0,511/10*2 

130 FC=SS(III1.50’ TAUX A 501 

132 FD=(INTIFCf10*2*0.5!1/10*2 

131 S0T0438 


Dans THEORIC n° 18, article 
"Deux Recopies d'Ecran", il faut 
lire GP 550 et non GP 500 dans 
le court texte situé au-dessus des 
listings. Notez que, sur le listing 
correspondant, est bien marqué 
GP 550. 




Gagnez un 
abonnement à 


Votre revue préférée servie gra¬ 
tuitement à domicile : le rêve, 
non ? 

Il peut rapidement devenir réalité 
si vous participez à l'élaboration 
de THEORIC. La publication d'un 
programme entraînera l'abonne¬ 
ment de son auteur (ou la prolon¬ 


gation de son abonnement) pour 
une durée de trois mois, six mois 
ou un an. Nous contacterons les 
auteurs des meilleurs travaux et 
leur proposerons une participa¬ 
tion plus régulière mais rémuné¬ 
rée. Avis aux amateurs. 
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Eric VIEL 



L EONARD,... c'est la fin I Ce dernier article est destiné 
aux possesseurs d'ORIC-1. A eux maintenant de pren¬ 
dre leur courage à deux mains pour accomplir le long 
travail de saisie. 

En fin d'article, nous vous donnons un petit programme à uti¬ 
liser sur ORIC-1 ou ATMOS, pour récupérer "l'écran 2". 
Envoyez-nous vos plus beaux dessins confectionnés avec 
LEONARD. 




LEONARD 
PARTIE No 2 


VERSION 


0 HIHEMI5000 
100 

110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 REM 
180 REM 

190 REM COPYRIGHT ERIC VIEL 1986 
200 REM 

210 REH- 

220 : 

230 TEXT:CLS 

240 FOR I=*5C00 T0 I6C7F STEP 8 
250 : 

260 : 

270 : 

280 : 

290 ! 


FOR J=I T0 1+7 
READ DTA$:DTA=VAL(‘i'+DTAI) 

S=S+DTA:P0KE J,DTA 
NEXT J 

READ CS:IF CSCS THEN PRINT'ERREUR EN LIGNE 1 ;20000+L:END 


300 S=0:L=L+10:NEXT1 

310 PRINT 1 PREPAREZ VOTRE MAGNETO ET PRESSEZ UNE TOUCHE 1 :GETR$ 
320 CSAVE’LEO.BIN',A#5COO,E#6C7F 
330 END 

20000 DATA AD,C0,02,C9,03,F0,IB,D0,1046 
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Sergio FIGOLI 


ATMOS ET 
MICRODISQUE 


ATMOS 



MICRODISQ UE 


Piste i couper 


La résistance et le 
transistor seront 
placés côté cuivre 

Connecteur vu 
côté cuivre 



Heureux possesseur d'un Micro¬ 
disque, complété en second lec¬ 
teur d'un drive 5''1/4, j'ai été 
conduit à le modifier, ainsi que 
mon ATMOS, pour que les deux 
fonctionnent en parfaite harmo¬ 
nie. La description de ces modi¬ 
fications devrait éviter, à ceux qui 
savent manier proprement un fer 
à souder, une dépense de 600 F : 
l'échange de la carte ATMOS 
proposée par certains reven¬ 
deurs. 

Une modification semblable avait 
été proposée dans THEORIC n° 
3, numéro malheureusement 
épuisé. 

ATTENTION : Ne vous lancez pas 
dans cette transformation si vos 
connaissances et votre pratique 
de l'électronique sont trop som¬ 
maires : il y va de la vie de votre 
matériel ! 


me: suis abonne 


I N 


IN INFORMATIQUE & NATURE nous propose une nouvelle formule de vente ! 
Continuant de sortir un ou plusieurs logiciels par mois» voilà qu’il 1 
nous offrent des réductions très interesantes sur tous leurs softs 
15 à 30 Y. inespéré non... 

Ce super avantage vous sera accordé lorsque vous aurez pris votre 
carte d’adhésion valable 1 an pour 100 F seulement. 

Moi je n’ai pas hésité et voila mon ORIC enrichi de super programmes 
utilitaires qui l’exploitent à fonds MS—TEL» MS—ATMOS» COPYTEL» 
NIBBLE»... 

Dernières nouveautés : CKD transfert de cassettes sur disquettes JASMIN 
pour 120 F. BUDGEST pour la gestion du budget familial très performant 
pour 250 F. 

Mais vous en saurez plus si vous demandez le premier journal IN qui 
vous offrira des informations plus développées sur les logiciels» des 
astuces de la part des créateurs de softs» une liste de matériel 
d’occasion» etc... 

Tél 90 95 20 04 serveur IN 90 95 21 00 serveur IN PARIS 42 62 40 09 


Mr 


A RENVOYER à IN Route de Cavaillon 13440 CABANNES 
.Adresse.Tél 


BON D’ADHESION 


* désire s’abonner IN et envoie 
un chèque de 100 F. Je recevrai 
ma carte et le journal numéro 1 
gratuitement. 


BON DE COMMANDE 

■'♦«désire recevoir le journal IN 
sans m’abonner contre 10 F en 
timbres 1 — 1 . 

* désire recevoir les softs 
suivants <-»-15 F de port): 
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ABONNEZ 

VOUS- 


F ô 


cm- -æk îsigswsr de pon 


Prénom 


Inom . 

Adresse • • 
[Code P°" al 
Pays 


Ville • • 

Signature 


assg?3 SORACffM 

Abonn»”* ^ ^ ^ 

Tarif avion ^ ^ — 



• M ui* «oU)----;. • ■ ’jjôrl 


LES DISQUETTES DE THEORIC 


Tous les programmes de THEORIC, groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper... Existe pour le moment en JASMIN seulement. 

Le prix : 135 F pour les abonnés (joindre impérativement l'étiquette), 165 F pour les autres. 
Avertissement : les programmes stockés sur ces disquettes sont tels que parus dans THEORIC. A vous de les 
adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 


N° 1 THEORIC n° 4 et 5 
N° 2 THEORIC n° 6 et 7 
N° 3 THEORIC n° 8 et 9 
N° 4 THEORIC n° 10 et 12 
N° 5 THEORIC n° 13 et 14 
N° 6 THEORIC n° 15 et 16 
N° 7 THEORIC n° 17 et 18 
N° HS THEORIC HORS SERIE 
(n° 11) 


VOLUME : TOI7*13 


U TO .BAS S 4 SECTORS 


U 

MENU 

.BAS 

S 

40 SECTORS 

il 

MENU 

.BÏN 

c 

10 SECTORS 

U 

LEORIC .BiN 

S 

1S SECTORS 

U 

LE0ATM0S.BIN 

S 

15 SECTORS 

ü 

LE0RIC1 .BAS 

S 

T4 SECTORS 

U 

LEOATMOS.BAS 

te 

J 

75 SECTORS 

U 

CREEDATA.BAS 

s 

31 SECTORS 

U 

NEU/NUL .BAS 

s 

4 SECTORS 

U 

JA0GP5C .BAS 

s 

39 SECTORS 

U 

CATAJAS2.BAE 

s 

9 SEC T 0RS 

U 

PAYE 

.BAS 

r 

3 

43 SECTORS 

U 

LÛADLEO .BAS 

s 

2 SECTORS 

ü 

LEDEVIN .BAS 

s 

58 SEC'ORS 

‘J 

MIREA2 

.BAS 

s 

25 SECTORS 


BON DE COMMANDE 
DES DISQUETTES THEORIC 


U 

FR0G°ANI.£AS 

5 

14 SECTORS 

U 

COPYTEXT. BAS 

5 

5 SECTORS 

‘J 

ECRITURE. BAS 

S 

23 SECTORS 

U 

ORICTEl .bas 

S 

15 SECTORS 

U 

UTIL17ER.BAS 

S 

10 SECTORS 

U 

FREO/ACC.BAS 

S 

16 SEC'ORS 

IJ 

FREQ/0R1.BAS 

s 

19 SECTORS 

U 

TRIPHONI.BAS 

s 

14 SECT'iP? 

U 

GP10CX2 .BAS 

S 

16 SECTORS 

U 

GP1002NB.BAS 

s 

Q SECTORS 

Ü 

mi:s t da t .sas 


P SECTORS 

U 

PRACTALS. BAS 

5 

5 SECTORS 


3* SECTORS 7PEE 


c 

e 


Je commande les disquettes 12345 HS 67 NOM .Prénom 

Ci-joint : 135 F par disquette et mon étiquette abonné 

165 F par disquette car je ne suis pas abonné Adresse. 



Soit au total la somme de 
que ci-joint. 


F réglée par ché- 


Code Postal .... Ville 




















EXTENSION AU 
BASIC DE L’ORIC 


Pierre CHICOURRAT 

L e Basic de i'ORIC dispose de deux instructions très particuliè¬ 
res : une commande "!" et une fonction ''&(". En effet, ces 
deux instructions ne sont pas définies à la mise sous tension 
de I'ORIC, plus exactement, elles ne correspondent à aucune opéra¬ 
tion "évoluée" (du style PRINT ou GOTO). En effet, quand l'inter¬ 
préteur rencontre une de ces deux instructions, il se contente de faire 
un saut à une adresse indiquée par deux octets en RAM et rien de 
plus... Nous allons voir comment utiliser ces deux instructions pour 
ajouter au Basic de I'ORIC autant de mots de vous le désirez. 


La commande "!" est vectorisée 
en RAM aux adresses #2F5, 
H 2F6 (adresse de saut codée sur 
deux octets ; octets de poids fai 
ble puis de poids fort). C'est à 
dire que quand l'interpréteur va 
vouloir exécuter cette corn 
mande, il va lire l’adresse codée 
sur ces deux octets et va faire un 
saut à cette adresse. Cette 
commande est donc en fait un 
simple CALL pour lequel le para 
mètre (adresse de saut) serait fixé 
par deux octets de la RAM. Outre 
le fait que ce mot peut avanta¬ 
geusement remplacer un CALL 
que l’on fait souvent (car il est 
plus vite frappé et, de plus, il 
n’est pas nécessaire de se rappe 
1er une adresse), "!" peut aussi 
être utilisé pour étendre le Basic 
en lui ajoutant des mots. Le DOS 
utilise cette possibilité pour que 
vous puissiez transmettre vos 
ordres aux disquettes et c’est 
aussi avec le même truc que 
fonctionnent la plupart des pro 
grammes d’extension du Basic. 
L’astuce utilisée par tous ces pro¬ 
grammes est en effet la même. 
La commande "!" fait un saut à 
une routine spéciale de "mini¬ 
interpréteur" qui se charge 
d’analyser le texte qui suit le "!". 
Si un mot défini est reconnu (les 
mots que l’on veut définir par la 
méthode sont, pour plus de faci¬ 
lité, stockés dans un tableau 
(c’est-à-dire une zone mémoire) 


contenant les codes ASM de ces 
mots), le "mini-interpréteur" 
force l’exécution de la routine 
définissant ce mot. Par contre, si 
aucun mot n’est reconnu, on 
génère un message d’erreur (ou 
on se branche sur une autre rou 
tine de "mini-interpréteur" du 
même style si le "!" fait double 
usage, par exemple, pour un 
Basic étendu et le DOS). Peut- 
être vous demandez-vous com¬ 
ment on fait pour "voir” le texte 
qui suit le "!" quand on rentre 
dans le mini-interpréteur ? Il faut 
savoir que l’interpréteur Basic 
normal dispose d’un pointeur 
spécial : le pointeur "texte- 
basic”. Situé aux adresses # E9, 
#EA (il contient une adresse 
mémoire, donc codée sur deux 
octets), ce pointeur contient 
l'adresse du prochain caractère 
qui va être interprété. C’est là la 
solution de notre problème puis¬ 
que, connaissant l’adresse du 
prochain caractère, qui va être 
interprété, nous pourrons, à l'en¬ 
trée de notre mini-interpréteur, 
lire le texte qui suit le "!" et donc 
le comparer à une liste des mots 
que nous voulons définir et exé¬ 
cuter la routine correspondant au 
mot-clé qui sera reconnu. Seul 
impératif : tenir à jour ce pointeur 
"texte-basic" afin qu'au retour 
de notre mini-interpréteur, l'inter¬ 
préteur Basic normal ne soit pas 
perdu (ne reconnaissant pas le 


texte à interpréter comme un 
mot clé, il générerait un message 
d’erreur du type "?SYNTAX 
ERROR"). Une routine type de 
"mini-interpréteur" vous est pro 
posée figure 1 en Assembleur. 
Figure 2, vous trouverez le pro 
gramme Basic se chargeant d'im¬ 
planter cette routine (si vous ne 
disposez pas d'Assembleur). 
Cette routine a été conçue de 
manière à être tout à fait géné¬ 
rale pour s'adapter à tous vos 
besoins. Elle appelle cependant 
quelques commentaires quant à 
son utilisation. Tout d'abord, les 
mots-clés doivent être stockés 
dans un tableau (quand on parle 
ici de tableau, il s’agit de tableau 
au sens du Langage Machine, 
c'est-à-dire tout simplement de 
zone mémoire). Dans cette zone 
mémoire (que vous pourrez choi¬ 
sir à votre gré), vous mettrez les 
codes ASCII de chacun des mots- 
clés. Pour signaler la fin d'un mot- 
clé (c'est-à-dire en fait entre deux 
mots-clés), il faudra mettre un 
octet nul. La fin de ce tableau des 
mots-clés sera signalée par deux 
octets nuis. Il faut également 
faire attention au fait que les 
mots-clés du Basic normal sont 
codés sur un octet avec un code 
supérieur à 128 ; il faudra tenir 
compte de cette remarque si un 
de vos mots-clés contient un mot 
du Basic dans son texte. Par 
exemple, supposons que vous 
vouliez définir le mot "CON¬ 
SOLE". Il faudra le coder par les 
codes ASCII : 67 ("C”), 180 
(code de "ON"), 83 ("S"), 79 
("O"), 76 ("L"), 69 ("E">, 0 
(code de fin de mot) et non par 
les codes ASCII des lettres (qui 
donneraient les codes : 67, 79, 
78, 83, 79, 76, 69, 0), car ce 
mot contient le mot Basic "ON" 
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code 180. Pour ne pas faire d'er¬ 
reurs, vous pouvez utiliser le petit 
programme Basic proposé sur la 
figure 3 qui vous donnera les 
codes ASCII correspondant au 
mot-clé que vous voulez définir. 
D'autre part, toujours concernant 
cette routine de mini interpréteur, 
les adresses des routines définis 
sant les mots-clés sont stockées 
dans deux zones mémoires (deux 
tableaux), dans le premier 
tableau, les poids faibles de ces 
adresses et dans le deuxième les 
poids forts. L'ordre des adresses 
dans ces deux tableaux doit être 
le même que celui des mots-clés 
dans le tableau des mots-clés. 
Ainsi, si "CONSOLE" est le troi 
sième mot du tableau des mots 
clés, dans les deux tableaux des 
adresses, on doit trouver, égale¬ 
ment en troisième position, res¬ 
pectivement, les poids faible et 
fort de la routine exécutant ce 
CONSOLE. 

Si vous le désirez, le programme 
de la figure 4 se chargera de 
générer les trois tableaux utilisés 
par la routine de manière automa 
tique ; il vous suffira de taper le 
texte des mots-clés à définir et 
l'adresse des routines définissant 
chacun d'eux, et le programme 
se chargera du reste... A noter 
aussi qu'il est préférable de réser¬ 
ver environ 256 octets pour cha 
cun des tableaux codant les 
adresses (256 octets représente 
leur longueur maximale) et une 
place suffisante pour le tableau 
des mots-clés (penser à de futu 
res extensions qui vous oblige¬ 
raient à augmenter la taille de ce 
tableau). 

De la même manière que l'on 
étend les commandes, le nombre 
de fonctions peut être augmenté 
au moyen de la fonction "&(", 
qui est, elle aussi, vectorisée en 
RAM aux adresses # 2FC, # 2FD 
Pourtant, cette possibilité est 
moins utilisée que le "!" pour une 
raison bien simple : cette fonction 
n'accepte directement pour para 
mètre qu'un nombre réel (ou une 
expression de variables numéri 
ques) mais en aucun cas des 
variables alphanumériques. A 
priori, il n'est donc pas possible 
d'utiliser ce truc pour créer des 
fonctions opérant sur des chaînes 



Figure 1 : Programme en Assembleur. 

0000 


0001 

; T IMF - INTERPRETEUR 

0002 


0003 


0004 

; TCI Pierre CHICOURRAT 

0005 


0006 


000V 

; ENTREE 3 L’ INTERPRE r EUR PAR LA 

0008 

iCOHNANDE ’5' 

3033 


0003 

JSR CESP 

300B 


3006 

.NE T !ENT PAS C0n p TE DES ESPACES 

300D 


000E 

i_DX 400 

000F 

.POINTEUR DE Nil'IE RO DU nO T -Ci_E ;r 

0010 

i_DA 4FF 

301 1 

t_Dl 4PP 

00)2 


30] 3 

;'1E 1 ’TRE DANS A ET T L’ADRESSE 

3014 

: DU TABLEAU DES HO^S Ci-E^S 

0015 

,f DANS A PO'DS c AIBuE E r I FORT 1 

3016 


0017 

StA 03 

0018 

SfT 0! 

0013 


3013 

;f00.0n SER T DE POINTEUR DANS LE 

001 B 

; TABLEAU DES 10TS-CLE r S 

30 IC 

j 

301D 

LDA E3 

301F 

PHA 

001F 

LDA EA 

3020 

PHA 

0021 

; 

3022 

;SAU<JECjARDE DU POINTEUR "TEXTE-BAS 

!C" 


3023 

.POUR POUUO'R LE RESTAURER LORS DE 

3024 

L.A RECHERCHE 

3025 

; 

3026 

uDl 400 

0027 

LDA (00 T.r 

3028 

. L-OOP 

3023 

cn p r esi • t 

0023 

5 

002B 

JCOMPARE CE QUI SUIT LA CONHANDE 

002C 

AUEC t_E TA3LEAU DES H0 T S ClE* 7 

c 


002D 

> 
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30zx 

222 '-' 

3030 

303) 

0032 

ü 

0333 

0034 

3035 

0J3G 

2237 

L238 

3038 

3038 

303B 

003C 

003D 

003E 

8SER 

003F 

0040 

00^1 

0042 

.3043 

3044 

0045 

0046 

0047 

0048 

3043 

0048 

304B 
004 C 
0040 
004 E 
304f 
c 

9050 

S] 

0051 

3052 

0053 

0054 

E p 

3055 

3356 

3057 

0053 

3359 

E 

9958 


t>NE il ' ! • 

;FI CE N’EST p AÇ i_E BON riOT .r^iT 
;JN 58 l !T A cru 

j S î NON ON fNCRE5EN TE LE PÜfNTEJ< 0 

TABLEAU DES riOTÇ-Ci.FP f00,01'» 

INC 30 
BNE E r I2 
INC 01 
. ET 12 
INC E9 
BNE E r I3 
INC EA 
. E T 13 

; E T CElUI DU •■’’E><rE-B«SIC'‘ P DUR 13 8 

; AU CARACTERE SUIUANT 

\ 

? 

uDA 1001• i 
BNE l.OOP 

;SI l’ON N’EST PAS ARRI «JE 8 lA ^fN 
iO’ÜN flOT ClEF f A 03 3 CONTINUE L.A 
,COMPARA ! SON 

.SINON i_E nO T -CuE ir ES 1- RECONNU E T 
;0N PREND L’ADRESSE DE ROUTINE 
^CORRESPONDANTE DANS l.E TABlEAU 
,DES ADRESSES 

lDA tADSiX 
STA 00 

J 

: p 0IDS BAS DE l’ADRESSE DU nO T -CLE 
i f TADB EST uE taBlEAU DES POIDS BA 


lDA tadh.x 
STA 01 

; B 0! DS r ORT DE l’ADRESSE DU DDT-Cl 


PlA 

P LA 

IDEPIlE l’ADRESSE DU POINTEUR TEX r 
.PAT'- QU f AUA rr E r r SAU.jrt,aRDE 


de caractères. Pourtant, il existe 
un moyen de détourner cette dif¬ 
ficulté. Il faut savoir que quand 
l'interpréteur exécute la fonction 
&() (ou plus exactement la cal¬ 
cule), il ne fait que calculer l'ex¬ 
pression qui est entre les deux 
parenthèses, vérifie que c'est 
bien un réél et le stocke dans l'ac¬ 
cumulateur en virgule flottante 
(de # DO à #D5) en ayant pris 
soin de bien spécifier que le con¬ 
tenu de cet accumulateur était un 
nombre en virgule flottante (il ini¬ 
tialise pour cela le contenu de 
#28 à # 29 à zéro). Puis l'inter¬ 
préteur fait un saut à l'adresse 
codée par les octets en # 2FC et 
#2FD. En principe, le réel entre 
parenthèses après la fonction est 
justement le paramètre de la 
fonction que l'on veut définir, 
mais rien ne nous oblige à respec¬ 
ter cette règle. Nous allons en 
effet utiliser la même routine de 
mini-interpréteur que pour la 
commande "!". Ainsi donc, la 
fonction &() fera un saut à la rou¬ 
tine de mini-interpréteur de même 
type que pour "!" (il vaut mieux 
cependant ne pas utiliser les 
mêmes routines pour les deux 
instructions). Le mini-interpréteur 
analysera le texte qui suit et for¬ 
cera l'exécution à la routine défi¬ 
nissant le mot-clé qui suit. Cette 
routine se chargera d'analyser les 
paramètres suivant ce mot-clé, 
calculera la fonction que l'on 
veut, et remettra le résultat dans 
l'accumulateur en virgule flot¬ 
tante avec le même format que 
le ferait l'intepréteur Basic lui- 
même. Ce système aboutit à défi¬ 
nir des fonctions du style : 
'&(0)STRING$(''t'',20) le nombre 
entre parenthèses, juste après le 
&, ne servant à rien (paramètre 
bidon), sinon à éviter que l'inter¬ 
préteur ne déclare une erreur. 
Comme vous le voyez, rien ne 
vous empêchera de définir des 
fonctions ayant pour résultat une 
chaîne alphanumérique. La seule 
règle à respecter sera de trans¬ 
mettre les résultats dans l'accu¬ 
mulateur en virgule flottante sous 
le même format que l'interpré¬ 
teur, c'est-à-dire : 

— si c'est un nombre en virgule 
flottante : mettre ce nombre dans 
le premier accumulateur flottant 
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(de #D0 à #D5) et dans les 
octets aux adresses # 28 et # 29 
mettre zéro (pour indiquer qu'il 
s'agit bien d'un nombre en vir¬ 
gule flottante), 

— si c'est une chaîne alphanu¬ 
mérique, la coder dans la pile des 
chaînes alphanumériques (poin- 

005B , 

205C JHP r00003 
005D ; 

305E iSAUT P i_A ROUTINE EXECU1AN1 uE flO 

T_ 

005F ;Fi_EF 

0060 j 

0061 ,ET II 

0062 I NX 
0063 ; 

0064 iINCRt’HENTE LE POINTEUR DES DOTS 

0065 JCLEFS 

0066 i 

0067 .ET 15 

0068 INC 00 

0069 BNE E TI4 

006A INC 0] 

006B ,ET 14 

006C LDA C00),r 
006D BNE ET 15 
006E INC 00 
006F BNE ET 16 
0070 INC 01 
0071 .ET 16 

0072 J 

0073 1REPERE LE I10T-CLEF OUI SU T T DANS 
0074 i l_E TABLEAU POUR EFFECTUER DE 

0075 JNOUUELLES COP1PARA ISONS 
0076 ;H 

0077 PLA 
0078 TAÏ 
0079 PLA 
007A STT EA 
007B STA E9 
007C PHA 
007D TTA 
007E PHA 
007F ; 

0080 JRESTAURE LE POINTEUR DES HOTS-CL 
EFS 

0081 ; 

0082 LDT *00 
0083 LDA C00) ? r 
0084 BNE LOOP 
0085 : 
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teurs en # 85 et # 86 ; pile entre 
# 88 et # 91 ) et mettre en # 28 
la valeur # FF et en # 29 un octet 
à zéro. 

Voilà pour la théorie. Vous trou¬ 
verez quelques petites explica¬ 
tions de cette méthode bientôt 
dans THEORIC. 

3086 :-;î CE N’EST PAS i_A FIN DU TABLEAU 

0087 ;RE p ART FAIRE uES COn p ARAISONS 
3088 iTuA F T N DU TABLEAU EST SIGNALEE P 
AR 

0089 ;QEUX OCTETS NJLS.DONC ICC, i_E 
008A ;fONTENU DE A SERAIT Ndu.1 
008B : 

338C lDX $10 
008D .IdP C<t85 
008E I 

308F ;S! C’EST LA FIN DU TABLEAU ET QUE 

0090 ;AUCUN nOT N’A ETE REPERE, ON GENE 
RE 

009] :UN STNTAX ERROR 
0092 ; 

2093 ;SUR A T nOS, REMPLACER C485 PAR C47 
E 

0094 i 
3095 i 

3095 ;ROUTINE PERHETTANT DE SAUTER LES 
3097 ^ESPACES ENTRE LA COHflANDE ’ 2 ’ ET 
2098 :i_E DEBUT -U TEXTE CHOT-CLEFl QUI 
SU TT 
0099 ; 

009A .CESP 

209B LDT *00 
009C LDA $20 
009D Cn p f E9 3 < T 
009E BEQ ETI7 
009F i 

20A0 ;SI LE CARACTERE EST UN ESPACE ON 
20A1 ;l_E SAUTE EN INCREHENTANT u E POINT 

EUR 

00A2 i TEXTE-BAS IC 
00A3 ; 

30A4 RTS 
00A5 .ET 17 

00A6 INC E9 
00A7 BNE CESP 
00A8 INC EA 
00A9 BNE CESP 

T PE0B ■ 


AUo. 

Ttkohc, o 

VOiV pâga- ^ 








Figure 2 : Implantation du Mini-Interpréteur. 


0 REn================================== 

1 REd= 

2 REd= ni NI-INTERPRETEUR 

3 REf1= 

4 REd = CCD Pierre CHICOURRAT = 

5 REn= 

6 REn=™============================== 

10 TEXT:PAPER0:INK2:PRINT ; PRINTSPCC10D"H 
INI-INTERPRETEUR" 

20 PRINT :PRINT:INPUT"ADRESSE D’IdPLANTAT 
ION " JAD-PRINT-RESTORE 

30 I=AD:REPEAT:READU$:U=UALC"8"i-U$;) :POKE 
I » U ï 1 = 1 -t-1 :UNTILU$="*" 

40 IFPEEKC8FFFE!) <>40THENDDKEAD-r85E, 8C47E 

50 DOKEADt1,ADr860:PRINT ; PRINT"A QUELLE 
ADRESSE UOULEZ-UOUS dETTRE LE" 

51 REN 

52 REd POUR LES TABLEAUX CONTENANT LES P 
OIDS BPS ET FORTS DES ADRESSES 

53 REd PU dAXIdUd, ON PEUT PREUOIR 256 O 
CTETS -POUR CHACUN 

54 REd 

55 REd POUR LE TABLEAU DES dOTS CLEFS, P 
REUOIR UNE PLACE SUFFISANTE 

56 REd SUIUpNT LES HOTS CLEFS QUE UOUS U 
OULEZ DEFINIR 

57 REd 

60 PRINT"TABLEAU CONTENANT LES POIDS BAS 
DES" :PRlNT"ROUTINES DEFINISSANT LES dOT 

s " ; 

70 INPUTAB;D0KEAD+8 2C,AB :PR INT"A QUELLE 
ADRESSE UOULEZ-UOUS dETTRE LE" 

80 PRINT"TABLEAU CONTENANT LES POIDS FOR 
T DE":PRINT"CES ADRESSES " ; :INPUTAH 
30 D0KEAD + #31,AH : PR INT"A QUELLE ADRESSE 
UOULEZ-UOUS dETTRE" 

100 PRINT"LE TABLEAU DES DOTS CLEFS ";:I 
NPUTAC :DOKE0, AC :P0KEADi-6 . PEEKC0D 
1 10 POKEADi-8 j PEEKC 1 D :PRINT" IdPLANTATION 
TERdlNEE" :END 

1000 DATA20,60,70,A2,00,A3,FF,A0,FF,85,0 

0,84,01 ,A5,E3i <a 8,A5,EA, 4 8,A0 

1010 DATA00, B1,00.D1 , E3,D0,.1F,E6,00,00,0 

2.E6.01,E6,E3,D0,02,E6,EA,B1 

1020 DATA00,D0,EC,BD,DB,DA,85,00,BD,D1,D 

A,85,01,68,68;6C,00,00,E8,E6 

1030 DATA00,D0,02,E6,01,B1,00,D0,F6,E6,0 

0,D0,02,E6,01,68,A8,68,84, EA 


1040 DATA85,E3, *8 ,38, *8 ,A0,00,B 1,00,D0,B 
C, A2, 10,4C,8 5 > C4,A0,00,A3,20 
1050 DATAD1,E3,F0,01,60,E6,E3,D0,P3.E5,E 
A,D0,EF,* ■ 


Figure 3 : Génération des codes ASCII. 

0 REd================================== 

! REd = 

2 REd= GENERATION DES CODES ASCII CES = 

3 REd= dOTS-CLEFS 

5 REd T OUTES i_ES REd PEUUENT ETRE SUPRId 
EES SAUF CE'-lE DE LA uIGNE 10 

6 REd IL FAUT LA CONSERUER ABSOi_UdENT TE 
LLE QU’El.LE EST CAR C’EST LA QUE 

7 REd S’IflPLANTE UNE p ETITE ROUTINE EN L 
. d 

10 REOAAPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

aaaaaaaaaaaaaaaaaaaaapaaaaaaaaaaaaaaa 

20 RESTORE : 1=8501 :REPEAT : I=DEEKCID :JNTIL 
DEEKC Ii-2)«10:AD-Ir7 

30 I=AD :REPEAT:READU$:U=UALC"«"fU$D :POKE 
Ir U : 1 = 1*1 :UNTILU$="*" 

40 IFPEEKC8FFFED <>40THENDOKEADr«F,8C5FA 
50 INPLT'TAPEZ UOTRE dOT Cl.E c " :T$ :CALLAD 
-1=835 

60 PRINT"UOICI LES CODES DU dOT " T$ :RE P E 
AT :PRÏNTPEEKCID5" " ; : T = I^1 :üNTILPEEKCID = 
0 

70 PR INT"3" :GOTO50 


1000 

DATAA5,ES:REd 

LOA 

E3 

1010 

DATA48 :REd 

FHA 


1020 

DA T AA5,EA:REd 

LDA 

EA 

1030 

DA~A48 ^REd 

PHA 


1040 

DATAA3,35:REd 

LDA 

$35 

1050 

DATAA0,00:REd 

LDT 

$00 

1060 

DATA85, ES '-REd 

sta 

ES 

1070 

DATA84,EA ; REd 

STT 

EA 

1080 

DATA20,0A,C 6:REd 

J SR 

C60A CATHOS 

: C5FAD 



1090 

DATA68 :REd 

PLA 


1 100 

DATA85,EA : REd 

STA 

EA 

1110 

DATA68 :REd 

PLA 


1120 

DATA85.ES;REd 

STA 

E3 

1130 

DATA50 :REd 

RTS 


1 140 

DATA* ■ 
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Figure 4 : Aide au remplissage des tableaux. 

0 REf1=== , =='============================= 

1 REf1= 

2 REI1=GENERATI0N DES TABLEAUX UTILISES= 

3 REd= 

4 REn= CCI Pierre CHICOURRAT 

6 REfl TOUTES LES RED PEUUENT ETRE SUPRIfl 
EES SAUF CELLE DE LA LIGNE 10 
? REH IL FAUT LA CüNSERUER ABSOLUMENT TE 
LLE QU’ELLE EST CAR C’EST LA QUE 
8 REM S’IdPLANTE UNE PETITE ROUTINE EN L 
.d 

10 REdAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
20 RESTORE = I =-«501 :REPEAT : I=DEEKC 13 :UNTIL 
DEEKC1+23=10:AD=I+ 7 

30 I =AD :REPEAT :READU$ :U=UALC "#"+U*D :POKE 
I,U: 1 = 1 + 1 :UNTILU$="*" 

40 IFPEEKC «FFFED <>40THENDOKEAD+«F,HC5FA 


50 PRINT"A QUELLE ADRESSE AUEZ-UOUS IdPL 
ANTE LÇ“ : INPUT"dINI-lNTERPRETEUR " ;AI 
60 AB=DEEKCAI+82C) :AH=DEEKCAI+«31 1:J=PEE 
KCAI+6]:K=PEEKCAI+8} :POKE0.J :POKE1, K 
70 TC=DEEKC0D 

80 PRINT"POUR TERdINER, TAPEZ ’CFIND’ ET 
UNE" : PRINT"ADRESSE BIDON.":PRINT JPRINT 
30 PRINT"TAPEZ LE dOT CLEF ET L’ADRESSE 
DE LA" :PRINT"ROUTINE LE DEFINISSANT " 

100 lNPUT"dOT CLEF,ADRESSE DE LA ROUTINE 
";d$, a:IF d«="CFIN]"TNENDOKETC,0:END 
110 DOKE0,A:FORI=lTOLENCd*]:POK€«34+I,AS 
CCdID$Cd$, H) :NEXT :POKEtt35+LENfd$),0 
120 CALLAD: I=tt35 :REPEAT :POKETC,PEEKCID=1 
= 1 + 1 :TC=TC+1 ^UNTILPEEKC n=0:POKETC,0 
130 TC=TC+1:POKEAB,PEEKC0):POKEAH,PEEKC1 
1 :«B=AB+] :«H=AH+1 :GOTO30 
1000 DATAA5,E3, 48, A5,EA, 48,A3, 35, A0,00 ,Q 
5,E3,84,EA,20,0A, C6 , 68,85, EA, 68 
1010 DATA85,E9, 60,* 



Les possesseurs d'ORIC vont 
enfin pouvoir rivaliser avec les 
utilisateurs de machines dites 
semi-professionnelles puisque 
ceux-ci peuvent trouver chez leur 
revendeur habituel une nouvelle 
extension "LE CALCULATOR". 
Il s'agit d'un pavé numérique un 
peu spécial car, non seulement 
sont regroupées sur celui-ci les 


touches fonctionnelles, telles : les 
chiffres de 0 à 9, le point, DEL, 
ENTER, mais aussi, tenez vous 
bien, la touche FONCTION ainsi 
qu'une prise de manette de jeux. 
Beaucoup de choses, me direz- 
vous ! Et bien non, ce ne sont que 
les fonctions qui faisaient défaut 
à cette machine. 

Bienheureux les propriétaires de 


MICRODISC EUREKA car, avec le 
calculator, tout leur est permis. 
En effet, le SEDORIC utilise à 
100 % la touche fonction. Les 
autres, ne vous désolez pas, puis¬ 
que cette touche est quand 
même programmable, quant aux 
possesseurs d'ORIC-1, on dit 
MERCI CALCULATOR ! 

Côté connexions, c'est super. On 
n'utilise ni le port extension (34 
broches), ni le port imprimante, 
ce qui laisse libres les bus pour 
d'autres extensions. Le calcula¬ 
tor est compatible avec toute la 
gamme ORIC, y compris le 
TELESTRAT. 

Pour la majorité des machines, un 
tournevis, une prise à brancher, 
c'est tout ! Pour les autres, un 
connecteur est livré avec le cal¬ 
culator qu'il suffira d'adapter sur 
la machine avec quelques points 
de soudure. Quoiqu'il en soit, le 
jeu en vaut la chandelle. Ceux qui 
ne se sentiraient pas capables 
d'effectuer cette petite connexion, 
peuvent toujours avoir recours 
aux compétences de leur reven¬ 
deur. 

Auteurs de futurs logiciels, soyez 
"branchés”, programmez CAL¬ 
CULATOR. 

CALCULATOR est fabriqué et 
distribué par ICV, tél.: (1) 
69.04.04.50. 
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REVENDEUR AGRÉE ORIC EUREKA 

ouvert du mardi au samedi de9h30à 12 h 15 et de 14h30à 19 h 15 
130, ROUTE DE CORBEIL - 91360 VILLEMOlSSON-SUR-ORGE 
Tél. (1) 69.04.04.50 


I.C.V. A L’AVANT-GARDE DES NOUVEAUTÉS 



LECTEUR DISQUETTES 
3#5 p 


Lecteur esclave 3 1/2 

Double têtes 

Double densité 

Alimentation 220 volts 

Cordon de raccord 

Compatible MlCRODlSC/JASMIN 2 

1990 F 



PAVÉ NUMÉRIQUE/ 
JOYSTICK 


14 louches (0 à 9), le point, 

DEC, FONCTION. ENTER 
I prise joystick 

(fonctionne sur les 4 flèches et la Ixirre 
d espacement), compatibilité assurée sur 
75% des ieux. 

590 F 



— 64 Ko de RAM (extensible) 

— 48 ko de ROM (extensible) 

— CARTOUCHE HYPER BASIC 

— CARTOUCHE TÉIÉMATIC 

— Lecteur disquette 3 pouces 

— Câbles, manuels 

3990 F 


NOUVEAUTÉS DISPONIBLES ET 



• TELESTRAT 64 K . 

• ATMOS 48 K . 

A Moniteur couleur . 

Q Moniteur monochrome vert HR 12 

• Imprimante MCP40 plolter 

4 couleurs . 

• Imprimante BROTHER 1009 . 

A Option picots BROTHER 1009 

• Lecteur disquettes SEDORIC 

(maître) . 

• Lecteur disquettes (auxiliaire) _ 


3990 F 

ACCESSOIRES 


990F 
2750 F 

1150F 

A Modulateur noir et blanc UHF 

295 F 

A Modulateur couleur UHF . 

495 F 

A Câble pour imprimante parollèle 

150F 

990 F 
1995 F 
350 F 

• Rouleau papier MCP 40 . 

18 F 

A Rame papier imp 80 (SOOF) ... 

79 F 

• Bloc Oric 9 volts . 

150F 

A Joystick type Quickshol 1 . 

95 F 

2490 F 
1490 F 

A Disquette 3.5 pouces (MAXELL) .. 

25 F 


Revendeurs,nous consulter 


LOGICIELS 

NOUVEAU : T B D (5 utilitaires sur disquettes 

Sedovic). 250F 

T B.D Transfert K7 vers disquettes 
CAT • Transfert TDOS vers Sedoric 
DTR - Dump mémoire en temps réel 
DD - Test piste défectueuse 
RTP ■ Repare une piste défectueuse 

+ de 70 titres en magasin 

ICV distributeur de la revue THEORIC 



I.C.V. 130, Roule de Corbeil - 91360 VILLEMOlSSON-SUR-ORGE 

NOM : .. 

DÉSIGNATION 

Qfé 

P.U 

P. T 

PRÉNOM: . 





ADRESSE : . 





Code Postal : . 





VILLE : . 





TÉL : . 










1 — 30 F pour achats inférieurs â 500 F 

1 Frais de Port — 50 F pour achats de 500 F à 1000F 

fi — 70 F nmir nchnte xunéripnr ri 10O0 F 

Frais de Port ■ 



1 

1 Ci-joint un chèque de F. : 

J 

TOTAL 





IZAPO CTQAfcom 99 31 64 73 























































A près avoir étudié en détail le fonctionnement de l'analyseur de 
syntaxe dans notre dernier numéro, nous sommes parés 
aujourd'hui pour l'étude du traitement des actions, verbe par 

verbe. 


Nous allons commencer par ren¬ 
seigner dès à présent les lignes de 
remarques que nous avions lais¬ 
sées vides à seule fin de ne pas 
trop vous aider dans la résolution 
de l'aventure. On se référera pour 
cela au tableau n° 1. Une fois 
cette opération effectuée, l'archi¬ 
tecture du programme devient 
déjà beaucoup plus claire, non ? 
Ouvrons ici une parenthèse pour 
expliquer le rôle de quelques 
variables que nous allons recon¬ 
trer au cours de notre analyse. 
Elles figurent au tableau n° 2 
et représentent des drapeaux 
(flags en anglais). Leur contenu 
vaut 1 lorsque la condition est 
remplie, et 0 lorsqu'elle ne l'est 
pas. Par exemple, on dira que F3, 
comme tous les autres drapeaux 
d'ailleurs, vaut 1 en début de par¬ 
tie. Par contre, dès que vous 
aurez assommé la sentinelle, F3 
sera égal à 1. Nous verrons en 
temps utile quand sont utilisés 
ces drapeaux, mais pour le 
moment, l'heure est venue de 
passer nos verbes en revue. 


dans le labyrinthe et de vérifier s'il 
n'y a pas d'erreur dans la liste des 
objets visibles à chaque emplace¬ 
ment. En ligne 480, nous testons 
si le complément est bien Nord, 
Sud, Est ou Ouest. Si vous 
demandez d'aller ailleurs (Aller 
saucisson par exemple) vous 
aurez le droit aux sévères remon¬ 
trances de votre ordinateur, que 
l'on trouve aux lignes 2820 et 
suivantes. Nous verrons de la 
même manière, au début du trai¬ 
tement de chaque verbe, une 
ligne testant si l'action est pos¬ 
sible avec le complément que 
vous avez donné. Viennent 
ensuite les lignes 490 à 520 qui 
testent si la direction demandée 
est accessible (voir plan du châ¬ 
teau) et commandent le déplace¬ 
ment en conséquence : E = E - 4 
pour l'Est et E = E-1 pour 
l'Ouest. Si le déplacement est 
possible, vous aurez le droit à l'un 
des messages situés entre 2900 
et 2980 ; sinon on va en 3000 
chercher le message "Vous ne 
pouvez pas aller par là !" 


ALLER PRENDRE 

Le traitement de ce verbe est Signalons avant de poursuivre 
extrêmement facile, c'est pour- que l'ordre des verbes dans le 
quoi nous le voyons en premier. programme n'a aucune impor- 
Ceci présente l'avantage de pou- tance. En général, on les implante 
voir se promener très facilement au fur et à mesure des besoins et 
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"N - O' .x 


Le mois prochain, nous étudie¬ 
rons d'autres verbes, mais dès à 
présent, vous en savez presque 
assez pour écrire votre propre jeu 
d'aventure. 

A bientôt. 


en fonction du scénario. Prendre 
est un verbe qui sert très souvent 
au cours d'un jeu d'aventure, 
mais son traitement est très sim¬ 
ple. En ligne 550, on teste si le 
nombre d'objets transportés est 
égal à 4. Si c'est le cas, vous ne 
pouvez pas en prendre d'autre et 
un message situé en 3070 vous 
l'indiquera. Viennent ensuite les 
deux lignes 560 et 565 qui tes¬ 
tent si les compléments au verbe 
prendre sont plausibles. La ligne 
580 vous envoie vers une routine 


650 à 655 - On s'assure que 
vous ne voulez pas ouvrir des 
trucs impossibles. 

660 - Si on ouvre un tiroir dans 
la salle de torture, un poignard 
devient visible. 

690 - Si on ouvre l'armoire dans 
le bureau du géolier, le message 
devient visible. 


très importante située en 2670 
qui vérifie si l'objet que vous sou¬ 
haitez prendre se trouve bien à 
l'endroit où vous vous trouvez. 
Sinon, on va en 3040 chercher 
un message du genre "Je ne vois 
pas de camion ici !" Notez la pré¬ 
sence de deux messages quasi¬ 
ment identiques, mais l'un cor¬ 
respond aux noms d'objets 
commençant par une consonne 
(3060) et l'autre aux noms 
commençant par une voyelle 
(3045). En ligne 585, on teste si 
l'on se retrouve sur le chemin de 
ronde, si l'on veut prendre les 
clés sans avoir assommé la sen¬ 
tinelle (F3 = 0). Si c'est le cas, on 
teste si on prend la corde dans la 
chapelle, ce qui fait sonner la clo¬ 
che et l'aventure est de nouveau 
terminée. Finalement, en 610, 
rien ne s'est opposé à la prise de 
l'objet choisi. On modifie sa posi¬ 
tion dans le tableau EO(n). Tous 
les objets portant le numéro 99 
sont transportés. On en profite 
pour incrémenter NT qui est le 
compteur d'objets transportés et 
on revient à la maison après être 
passé en 2900 chercher un petit 
message d'accord. 

OUVRIR 

Le traitement de ce verbe est 
légèrement plus complexe. 


700 - Si on ouvre le camion sur 
le parking, la pince coupante 
devient visible. 

710 - Si on ouvre la malle dans 
le garage, le plan du château 
apparaît. 

720 à 780 - On est devant la 
Kommandatur. On ne peut ouvrir 
la porte que si on possède le 
trousseau de clés. Dans ce cas, 
l'ordinateur vous demande avec 
quoi vous voulez ouvrir la porte. 
La ligne 750 autorise les mots 
CLES ou TROUSSEAU DE CLES. 
Si les conditions sont remplies, 
vous ne voyez plus "Une porte", 
mais "Une porte ouverte". On 
peut donc modifier le contenu 
d’une variable en cours d'aven¬ 
ture et nous aurons l'occasion de 
retrouver des exemples sembla¬ 
bles. De plus, vous avez mainte¬ 
nant accès vers le Sud (760). 
790 à 830 - Vous êtes dans le 
bureau du commandant et vous 
voulez ouvrir le coffre. On vous 
demande d'entrer la combinaison 
et si vous ne l'avez pas, vous 
êtes capturé. Si tout est en ordre, 
le passe-partout devient visible 
(810). 

840 à 890 - Vous êtes devant la 
grille et vous voulez l'ouvrir pour 
quitter la forteresse. Ce ne sera 
possible que si vous possédez le 
code secret (F7 = 1 ) et le passe- 
partout. 


470 REM - ALLER 
540 REM - PRENDRE 
640 REM - OUVRIR 
900 REM - REMPLIR 
950 REM - TUER 
1030 REM - LIRE 
1120 REM - ASSOMMER 
1220 REM - DONNER 
1260 REM - DEMANDER 
1310 REM - COUPER 
1360 REM - INVENTAIRE 
1410 REM - ALLUMER 
1510 REM - ETEINDRE 
1580 REM - POSER, JETER 
1640 REM - MANGER 
1710 REM - BOIRE 
1820 REM - CASSER 
1870 REM - TOURNER 


FO - Vous avez le code secret 
Fl - Le prisonnier a bu de l'eau 
F2 - Le bidon est plein d'eau 
F3 - La sentinelle est assommée 
F4 - Il est possible de couper 
la chaîne 

F5 - La chaîne est coupée 
F6 - La lampe est allumée 
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PROTECTION des 
PROGRAMMES 

EN LANGAGE 
M/CHINE 

M. LE GUYADER 


L es programmes en langage machine se plantent parfois sans 
raison apparente, surtout lorsqu'ils sont stockés sous #97FF 
(après mise en marche ou après RELEASE) ou sous # B3FF lors¬ 
que GRAB a été tapé. 


Rappel de l'organisation de la 
mémoire utilisée par le Basic avec 
les pointeurs donnant les limites 
de chaque 2 one (figure 1, pro¬ 
gramme "MEMOIRE”) et manuel 
ATMOS (pages 275, 277, 301, 
302). 


FIGURE / 

Les chaînes de caractères conca- 
ténées, les chaînes entrées par 
INPUT, les chaînes de caractères 
entrées en mode direct et le 
caractère entré par GET A$ sont 
stockés entre MEMSIZ # A6,A7 
et FRETOP #A2,A3. 

*- MEMSIZ #A6,A7 
(H1MEM) 

«-FRET0 0 #A2,A3 


*-S T REND #A0.Al 
■«-4RYTAB #9E.<?F 
*-VARIAS #9C,9D 


<-TX T TAB #9A,9B 
bas de mémoire (vers 100) 


Chaînes 
de caractères 


Espace 

mémoire 

libre 


Tableau»: 


Variables 


Texte du 
programme BASIC 


A l'initialisation 
7 HEX$(DEEM#Aû) ) = «9600 (MEMSIZ) 
7 HEï$(DEEKl#A2)) = #9800 'FRETOP) 
7 HEX$(DEEK(#A0)) = #503 (ST9ENI: 
7 HEX$(DEEK:#9E) ) = «03 (ARYTAB 1 
?HEX*(DEEK(#9C)) = #503 (VARTAB; 
7 HEX$(DEEKi#9A)) = #501 (TXTTAB) 
Aores GRAB 

7 HEX$(DEEKi#A6)) = #B3FF (MEMSIZ) 
7 HEX$(DEEK(#A2)) = #B3FP (FRETOP: 
Aores RELEASE 

?HEX*(DEEK<#Aù; ) = #97FF (MEMSIZ) 
’HEX*(DEEK(#A2)) = #97FF (FRETOP) 

Certaines valeurs changent lors 
de l'entrée d'un programme et 
lors de son exécution. 

Le programme BASIC 
"MEMOIRE" permet d'observer 
la variation de certains pointeurs. 
Vous pouvez ajouter ou modifier 
des lignes suivies de : GOSUB 
500 pour observer les change¬ 
ments. Vous pouvez aussi don¬ 
ner des instructions en MODE 
DIRECT, suivies de GOSUB 500. 

Exemples: 

DI$=’CHAINE ENTREE EN MODE DIRECT': 
GOSUB500 

DIM DI*(2000):50SUB500 
DI*(1)=* ELEMENT DE TABLEAU ENTRE 
EN MODE DIRECT':G05UB500 
LIST puis G0SUB500 (les variables 


sont conservées) 

Ajoute: 1 REM modification (RET'JRN: 
ouis taper 30SUB500 'les variables 
sont perdues) 

Remette: des variables par RUN ou 
en mode DIRECT puis: 

CLEAR:605UB5G0 (les variaoles sont 
£ nouveau perdues) 


lü REM programme MEMOIRE Æ 

15 REM ce programme fonctionne 

16 REM uniquement si l’ordinateur 

17 REM vient d’etre allume 
20 CL5 

30 p RINT‘a la mise en marche de l’ordin 
ateur': 60SUB30G 
40 GOSUB 600 
50 GRAB 

60 PRlMT:PRlNT’apres GRAB*:G0SUB300 
70 GOSUB oCO 
80 RELEASE 

90 PRINT:PRlNT'aores RELEASE*:G05UB300 
100 GOSUB 600 
110 HIMEMI500C 

120 PRINTiPRINT'apres HIMEM#5000' 

130 GOSUB 300 
140 GOSUB 600 
150 RELEASE 

160 PRINT:PRIN T 'apres RELEASE':GÛSUB50C 
170 GOSUB 600 

180 PRINT'essaye: d’autres instructions 
suivies de :G0SUB50C (en mode direct ou 
en* 

190 PRINT'modifiant le programme; voir 
Figure 1. 

200 END 
300 G0SUB500 

310 PRINT:PRiNT"tape: une chaîne de car 
acteres*:INPUTCH$ 

320 G0SUB700:G0SUB70C:60SUB700 
330 PRINT'apres INPUT*:G0SUB500 
340 PRINT:G0SüB600:GCSUB700 
350 PRINT'apres GETA*':G03UB500 
360 GOSUB 600 
370 DIMTA*(5000) 

380 PRIN T 'apres DIMAf(500C:’:50SUB520 
390 PRINT:PRINT:PRINT*Tape: î* 

400 F0RI=1T05 

410 PRINT*l’element'I* du tableau * 

420 INPUTAS(l) 

430 60SUB700:G0SUB700 
440 :NEXT 

450 GOSUB700:60SUB700:G0SÜB 7 00 
460 PRINT'apres l’entree des éléments d 
u tableau’:G0SUB500 
470 RETURN 

500 PRINT'MEMSIZ ’:HEX*(BEEM#A6>>' ' 
510 PRINT'FRETOP ':HEXt(DEEK(#A2)>* * . 
520 ORINT'STREND ';HEX*•OEEh «AT...* ■ 
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530 PRINT*ARY t AB *;HEX$(DEEK(#9E >* ' 
540 PRINT'VARTAB ';HEX$(DEEM#9C!)‘ “ 
550 PRINT'TXTTAB ‘sHEXiOEEKf#?*)) 1 
560 PRINT 
570 RETURN 

600 PRINT 2 tapez sur une touche 
610 SET A$ 

620 PRINTCHRî(14>;:PRINTCHRS(13) : 

630 RETURN 

700 PRINTCHRK11)CHRJi13>ChR*<14); 

710 RETURN ■ 


Pour vérifier les méfaits possibles 
des chaînes de caractères, vous 
allez préparer un programme en 
langage machine qui affiche 
"THEORIC, la revue des passion¬ 
nés d'ORIC" sur la première ligne 
de l'écran lorsque l’ordinateur 
"redonne la main" (au lieu d'af¬ 
ficher READY). Ce programme 
sera volontairement assemblé de 
# 97BO à # 97FF. 


100 ; Source Langage Machine 1 ^ 

110 ! & 
120 LDA <PR0G; remplace le 
130 ST A 1B ; Ready par 
140. LD A >PR0G; le PROGramme 
150 STA IC ; ci-dessous: 

160 .B EA.EA.EA.EA.EA.EA.EA.EA 
170 .B EA.EA.EA.EA.EA; (13 NOF) 

180 JMP C003;evite SYNTAX ERSÛR si le 
programme est lance par le FTD0S 
190 PR0G 
200 ; 

500 .0 ECRA BB8D; 1er octet écran 

510 .0 ping FA9F; FA85 sur 0RICÎ 

520 LDX #00 

530 ENC0:RE 

540 LDA text,X 

550 STA ECRA,X 

560 INX 

57C CPX #28; pour 40 caractères 
580 BNE ENC0;RE 
590 JMP ping 

600 text; début de la chaîne 

de caractères a afficher 
610 .B 01; encre rouge 
620 'THEORIC 
630 .B 02: encre verte 
640 ■la’ 

650 .B 03; encre jaune 
660 'revue’ 

670 .B 04; encre bleue 
600 'des' 

690 .B 05: encre magenta 
700 'passionnes' 

710 .B 06; encre cyar. 

720 'd’oric ' ■ 


DUMP Langage 
R7BG A9 28 55 

Machine i 

IB A9 97 55 


* 

97B7 

IC 

EA 

EA 

EA EA EA EA 



97BE 

EA 

EA 

EA 

E* EA EA EA 



97(5 


03 

CO 

A2 00 BD D8 



97CC 

97 

9D 

80 

BB E8 E0 23 



97D3 

D0 

-‘5 

4C 

9F FA 01 54 


T 

97DA 

48 

45 

<*F 

52 49 #3 02 

HE 

gr;c. 

97E1 

6C 

61 

03 

72 65 76 75 

la 

.re.'i 

R7E8 

65 

04 

64 

65 73 05 70 

O § 

des. p 

97EF 

61 

73 

73 

69 6F 6E 6E 

as 

riern 

97F6 

65 

73 

26 

64 27 6F 72 

PC. 

.d’or 

97FD 

69 

63 

20 


IC 


desas 

97B0 

iseml 

A9 

blaçe 1 

ce’ 

.aro Mach I 

LDA #28 


s 

97B2 

85 

IB 


STA IB 



97B4 

A9 

97 


LDA #97 



97B6 

85 

IC 


STA IC 



97B8 

a 97C4 

EA 

(13 WP) 



97C5 

4C 

03 

CO 

JMP C003 



97C8 

A2 

00 


LDX #GC 



97 CA 

BD 

D8 

97 

LDA 97D8.X 



97CD 

90 

80 

BB 

STA BB80 ,i 



97D0 

E8 



INX 



R7D1 

E0 

28 


CPX #18 



97D3 

D0 

F5 


BNE 9'CA 



97D5 

4C 

9F 

FA 

JMP FA9F 



chaine a 

partir de #97D6 



(voir 

DUMP Lang Mach 1 



97D5 

4C 

85 

FA 

sur ORIC 1 




10 REM DATA Langage Machine 1. 9 

15 REM PR0CTECTI0N des programmes en 
20 REM langage machine contre les 
25 REM chaînes de caractères 
30 GRAB ’pour placer la chaîne concate- 
nee '#'+R$ en #B3FC a §B3FF 
35 REM donc loin de la zone de stockage 
du programme en langage machine 
40 FORI=#97B0T0#97FF 
45 READRt 
50 R=VAL>"#‘+R$) 

55 P0KEI.R 
60 NEXT 

65 1F PEEK(#FFF9)=1 THEN 75 
70 D0KE#97D6,#FA85 'PING sur 0RIC1 
75 RELEASE 'remets l’ordinateur en 
version normale 

80 CALL#97BG 

85 REM n’oublie: pas de SAUVER ce 

programme avant de l’executer 
100 DATA A9,C8,85,1B,A9,97,65 
110 DATA 1C,EA,EA,EA,EA,EA,EA 
120 DATA EA,EA,EA,EA,EA,EA,EA 
130 DATA 4C,03.CÜ,A2,00,BD,DP 
140 DATA 97,9D,80,BB,E8,EG,28 
150 DATA D0.F5,4C.9F,FA,01,54 


160 DATA 48,45.4F,52,49,43,02 
170 DATA 6C,61,03.72,65,76,75 
180 DATA 65,04,64,65,<3,05,70 
190 DATA 61.73,73,69,6F,6E,6E 
200 DATA 65,73,06,64.27,6-, 5 6 7 2 
210 DATA 69,63,20 ■ 


Après avoir étudié le "Source 
Langage Machine 1" (compatible 
avec le supermoniteur paru dans 
THEORIC n° 12 page 43), le 
DUMP Langage Machine 1 et le 
Désassemblage Langage Machine 
1 : 

1 - Tapez le programme DATA 
langage machine 1 pour entrer le 
langage machine en mémoire. 

2 - Sauvez-le : CSAVE "DATA 
LM1 " ou 
!SAVE"DATALM1 

3 - RUN sauf erreur de frappe 
"THEORIC, la revue des passion¬ 
nés d'ORIC" s'affiche puis PING. 

4 -Sauvez le langage macine 
CSAVE "LM1 ",A # 97B0, 

E# 97FF ou 

ISAVE "LM1.BIN, #97BO, 

# 97FF". 


DUMP 4 Cassette 
97D9 54 48 45 4F 52 49 43 

R7E0 02 6C 61 03 72 65 76 

97E7 75 65 04 64 65 73 05 

R7EE 70 61 73 73 69 6F 6E 

97F5 6E 65 73 06 64 27 6F 

97FC 4C 4D 31 20 

le titre du programme est 
dans le langage machine 


DUMP 4 Disouette 
97D9 54 46 45 4F 52 49 43 T HE0RIC 

97E0 02 6C 61 03 72 65 76 .ia.rev 

97E7 75 65 04 64 65 4C 4D ue.deLM 

97EE 31 2E 42 49 4E 2C 23 l.BIN,* 

97F5 39 37 42 30 2C 23 39 °7B0.#R 

97FC 37 46 46 20 79 e 

le nom du programme est 
dans le langage machine 
(avec les adresses 
de début et de fin) 


5 - Observez les dégâts : le LM 
en mémoire est faux, mais aussi 
sur la cassette ou sur la disquette 
(voir DUMP 4 Cassette et DUMP 
4 Disquette). 

6 - Le remède, vous le connais¬ 

sez : HIMEM #97BO tapé en 
mode direct avant de sauver le 
programme LM 1 ou mieux 


7 

THEORIC 
. Ia.rev 
ue.des. 
passion 
nes.d’o 
LM1 

S 


25 











encore, remplacer la ligne 1 5 par 
15 HIMEM H 97B0 et la ligne 60 
par 60 REM dans le programme 
DATALM1. 

7 - Ne faites pas encore cette 
modification, le programme 
DATALM1 étant encore en 
mémoire : RUN et tout semble 
rentré dans l'ordre. 



30 CL3:P3iNT:PRINT 
40 a*='VARIABLE * 

50 B$=“ALPKAf.vfERIG'JE 1 
60 PRM M:li 
70 : 

30 PRM 

=>o eij m 


8 - Tapez NEW puis le pro¬ 
gramme VARIABLES1. 

9 - Tapez GRAB (pour avoir le 
titre du programme sous # 83FF). 

10 - Sauvez-le sous le nom de 
VAR1. 

11 - Tapez RELEASE (pour reve¬ 
nir aux conditions de départ). 

12 - RUN : le langage machine 
n'est pas modifié (les chaînes de 
caractères A$ et B$ sont dans le 
listing BASIC). 

13 - Ajouter les lignes suivantes : 
60 C$ = A$ + B$ 

70 PRINT C$ 

14 - GRAB. Sauvez (VAR2) - 
RELEASE. 



9709 5* 48 45 4P 52 4’ 43 "t-EOPlC 
9TE0 02 6C 61 03 7 2 63 76 .la.rev 
97E7 75 5 6 41 52 49 41 *2 uVAPTaB 
97EE 4C 45 20 41 4C 50 4P ! E AIPh 
97F5 4i 4E 55 4D 45 52 4? AN'.jKf 5 
97FC 51 55 45 20 QUE 


15 - RUN : observez les dégâts : 
la chaîne de caractères concaté- 
née C$ est stockée sous MEM- 
SIZ ( # A6,A7) (observez le DUMP 
2 ). 

16 - Tapez D$ = "MODE DIRECT" 
observez, continuez E$ = "MODE 
DIRECT"... l'ordinateur est 
planté. 

17 - Arrêt total. Réinitialisation... 
chargez DATALM1 - RUN. 

18 - GRAB. Charger VAR2 - 
RELEASE. 

19 - La solution : vous la connais¬ 
sez. Ajouter 20 HIMEM #97BO 


DvHF 3 

// 

■*704 jA 4 1 

\à 

979B 5 ;- 49 41 42 4C -5 3C 

RlAfLE 

97A2 41 4( 50 46 4 ; 4E 55 

Al_?*ANl 

9?A9 4D 45 52 49 51 55 45 

?. -/JE 

9?Ï0 A9 (8 65 ’P A° 9- ?5 


la case ne*>oi''P n^’PC deb’ 

Jt eu Lan- 

gage «acture* n'ss» pas *o- 

IEB 


dans le progrmme VAR2 puis 
RUN. La chaîne est stockée main¬ 
tenant sous le langage machine 
(voir DUMP 3). 

20 - Les possesseurs du lecteur 
de disquettes JASMIN peuvent 
faire le test suivant : 

- tapez RELEASE pour remettre 
l'ATMOS aux conditions de 
départ, 

- tapez des instructions volontai¬ 
rement fausses. Ex.: ICLOAD 
"programme". Le message d'er¬ 
reur est sous # 97FF, 

- tapez ISEARCH "Programme". 
Le message FILE NOT FOUND 
(ou EXISTING FILE !) est aussi 
sous #97FF. 

CONCLUSION 

L'ORIC stocke les chaînes de 
caractères entre MEMSIZ ( # A6, 
A7) et FRETOP Ut A2-A3). 
Utilisateurs de cassettes : l'ORIC 
stocke les titres des programmes 
(CLOAD"... ", CSAVE".. ", etc.) 
sous FRETOP sans modifier les 
pointeurs. 

Utilisateurs de disquettes (JAS¬ 
MIN) les titres des programmes 
(!SAVE"...'\ ILOAD"...", etc.) 
sont également stockés sous 
FRETOP ainsi que les messages 
d'erreurs sans modification des 
pointeurs. 

N'oubliez donc pas le HIMEM 
(adresse du premier octet du lan¬ 
gage machine à protéger) en 
mode DIRECT et dans les pro¬ 
grammes Basic. 

RAPPEL 

Pour trouver l'adresse d'un pro¬ 
gramme en langage machine qui 
vient d'être chargé : 

1) Sur cassette (ATMOS) 

? HEX$(DEEK( tt 2A9)) (début) 

? HEX$(DEEK( # 2AB)) (fin) 

2) Sur disquette (FTDOS JAMSIN 


V3.2) 

? HEX$(DEEK( # 48D)) (début) 

? HEX$(DEEK( P 48F)) (fin) 

PROTECTION INCLUSE 
DANS LE LANGAGE MACHINE 

Vous pouvez inclure dans un pro¬ 
gramme en langage machine une 
auto-protection contre les chaî¬ 
nes de caractères. 
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03 CD JK B 

CCC3 


97C0 

A9 

B0 lCA 

tPO 


97(2 

85 

Ac STA 

Ac 


97C4 

*9 

°7 LDA 

t97 


97(6 

95 

AT STA 

A? 


suite 

i dent :oue 



au Lançage Itacnine 

a 



Après avoir étudié le "Source 
Langage Machine 2" et le Désas¬ 
semblage Langage Machine 2, 
vous constatez qu'il suffit de 
stocker l'adresse du premier 
octet du langage machine en 
MEMSIZ ( tt A6.A7). 
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Modification DATA LM 2 
100 DATA A9.CO.85.1 B.A*.<37.85 
110 DATA 1C,EA,EA.EA.EA.EA.«C 
120 DATA 03.C0,A9,Bü.85,A&,A'3 
130 DATA 97.35.A7,A2,00,BD,DS 


1- chargez DATALM1 (sans y 
ajouter HIMEM # 97BO). Modifier 
les lignes 10O à 130 (voir modi¬ 
fication DATALM2). 

2 - Sauvez DATALM2. 

3 - RUN puis CSAVE"LM2" ( 
A# 97BO, E# 97FF ou (et) 
!SAVE"LM2.BIN, # 97BO, tt 97FF 
Le programme en langage 
machine est encore modifié. 
Refaites RUN. 

4 - Chargez VAR2 le nom de ce 
programme est encore dans LM2 
(continuez quand même). 

5 - RUN, la chaîne de caractères 
de C$ est stockée sous 97BO 
(voir le DUMP 3). 

6 - Réinitialisez (Arrêt, etc.). 

7 - Rechargez DATA LM2. RUN. 

8 - Tapez A$ = "MODE DIRECT”, 
la chaîne est dans le LM2. 

La solution proposée (adresse du 
premier octet du programme en 
MEMSIZ (#A6,A7) est souvent 
utilisée : Moniteur 1.1 de Lori- 
ciels. Programme "Des utilitaires 
pour vous plaire" (THEORIC n° 

10 page 31 ), etc. 

Cette solution est valable 
lorsqu'un programme Basic 
tourne aussitôt après l'entrée du 
langage machine (le Basic réac¬ 
tualise les pointeurs en fonction 
de MEMSIZ (#A6,A7), mais ne 
fonctionne pas lorsque des varia¬ 
bles alphanumériques, des 
CSAVE CLOAD 

ISAVE etc. sont tapées en 
mode direct avant l'exécution 
d'un programme Basic. 

11 faut noter que le Moniteur 1.1 
de Loriciels régénère le zone 
# 9755 à # 97FF à chaque appel 
(tableau des mnémoniques). 
Cette zone n'a pas besoin d'être 
sauvegardée. 


100 :Source Langage Machine 3 Mmm 
110 ; 9 " 

120 ;programme autoprctege centre 
130 ;ies variables alphanumériques 
140 jconcatenees orovenart du BASIC. 

150 jcontre les chaînes en rode direct. 


160 jcontre les chaînes des CSAVE*.., 
CLOAD’... ISAVE’... ! L0AD'... etc 
170 jet contre le? messages d’erreurs 
du FTD0S. 

180 DEBU 
190 LDA PR0G 
200 STA 12 
21C LDA >PROS 
220 S T A IC 
230 N0P 
240 JMP COUS 
250 PRC€ 

260 LDA <DEBU 


270 STA A6î 



280 STA A2; 

T9E70P 


290 LDA )DEBL‘ 


3C0 STA A7; 

>H!MEM 


310 STA A3; 

/FRETOP 


320 ;suite identique eu Larg. 

Mach, 1 

desassemblage Lang Mach 3 

97B0 A9 BC LDA ABC 

15 

97B2 85 IB 

STA 12 


97B4 A9 97 

LDA #9’ 


97B6 85 IC 

STA IC 


97B8 EA 

NOP 


97B9 4C 03 00 JMP C003 


97BC A9 20 

LDA #3Ü 


97BE 85 A6 

STA A6 


97C0 85 A2 

STA A2 


97C2 A9 97 

LDA #97 


97C4 85 A7 

S'A AT 


97C6 85 A3 

STA A3 


suite identiaue 


au Langage Machine 1 
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modifies 

tion DATA lM 3 


100 DATA a9,2C,85,1B.A9,97,95 
110 DATA 1C,EMC,03,C0,A9,B0 
120 DATA 85.A6.85.A2.A9.97.85 
130 DATA A7.85.A3,A2,C0,PD,D8 
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DUMP 5 

Cassette 


97A9 

4C 4D 33 

■j*2 


97B0 A9 BC 85 12 A9 9’ 35 
9727 IC EA 4C 03 C0 A9 B0 
le titre du CSAVE est stocke avant 
le langage machine (avant 4 97EQ1 


18 

DUM P 5 Disouette 

9792 4C 4D 33 2E 42 LM3.B 


97A2 49 4E 2C 23 39 37 42 IN,#97B 

97A9 30 2C 23 39 37 46 46 0,#97FF 

97B0 A8 BC 85 12 A9 p 7 85 

9727 IC EA 4C 03 C0 A9 B0 

le titre du 'SAVE et les adresses de 
début et de fin sont stockes avant le 
langage machine (avant #?7B0) 


LA SOLUTION 

Après avoir étudié le "Source 
Langage Machine 3 et le désas¬ 
semblage Langage Machine 3", 
vous constatez qu'il suffit de 
stocker l'adresse du premier 
octet du programme en L.M. en 
MEMSIZ ( # A6,A7) et en FRE- 
TOP (tt A2.A3). 

1 - Charger DATALM1 (sans y 
ajouter HIMEM # 97BO). Modifier 
les lignes 100 à 130 (voir modi¬ 
fication DATALM3). 

2 - Sauvez-le (DATA LM3). 

3 - RUN puis CSAVE "LM3", 
A# 97BO, E # 97FF ou 

ISAVE "LM3.BIN, tt 97BO, 
#97FF. Le programme en lan¬ 
gage machine est intact (voir 
DUMP 5 Cassette et DUMP 5 
Disquette). 

4 - Chargez VAR2 — RUN — pas 
de problème (voir DUMP 3). 

CONCLUSION 

Protégez automatiquement vos 
programmes en langage machine 
en stockant l'adresse du premier 
octet du langage machine en 
HIMEM (# A6,A7) et en FRETOP 
Ut A2,A3). 

Le programme en langage 
machine doit avoir été lancé 
avant de faire des opérations sur 
cassette ou sur disquette ou de 
taper des variables alphanuméri¬ 
ques en mode direct. 

Lorsque plusieurs programmes en 
langage machine sont appelés, 
seul celui qui a l'adresse la plus 
basse doit être protégé. 

NOTE 

Toutes ces informations ont été 
testées sur ATMOS avec le lec¬ 
teur de cassette et le lecteur de 
disquette JASMIN. 

Elles sont à réadapter pour 
ORIC-1 et les autres lecteurs de 
disquettes. 
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EUROPORK 

Corinne d'HERMILLY ^- - - 

Christian DIMOUCHE^^^ftf ,,< *' 

/ I Mans la lignée des programmes éducatifs que nous somgies 

/ ■^■décidés à publier dans THEÛRIC, pour prouver que l'ORIC 

j pourrait, lui aussi, avoir une place dans les écoles, nous 

* vous proposons ce mois-ci de refaire l'Europe. 


0 REM Auteurs : Corinne D*Her»illy et Christian Dinouchu DEC. 8» 

: TEXT:CLS:P0KE618.1Ü:PAPERG:INK4:PL0T3. Î4,l:°L0T3,9 t 7:CLEAR:GOTO6 

2 A=LEMAi) ;F0RN=1T0A 

3 NAIT2:SOUND1.90,O:PLAY1,C,1.7C:WAIT3 

4 PLOTX,Y,RIGHT«fA$.N) 

5 NEXTiRETURN 

fe Aï='EurORICovision et les auteurs 1 :X=6:Y=4:G0SUB2:WA!T40 
7 A*=’PRESENTENT':X=14:Y=9:S0SJB2:WAIT40:S0T0ll 
S A=LEN(AS):F0RN=1TOA:UAIT2:SOUND1, 5Ü, 0:PLAYI,0.1,70:WAiT3 
? PL0TX,Y,RIGHT$(A$.N):PL0TX,Y+1,RIGHT$<A$,N): 

10 NEXTrRETURN 

11 A«=-ajROP 1 ORIC":X=14 ïY= 13:PL0TX-5,Y, 10:PL0TX-5.Y+l,10:G0SUB8 

12 PL0T2,20,3:A*=* EKISSION RELAYEE PAR SATELLITE*:X=5:Y=20:GOSUÎ2 

13 GOSVB60G0 

14 PL0T5,25,' VOULEZ-VOUS il «ODt D'EMPLOI ’ ’ :GE‘ r 6irI.-5*='N'Tr€N16 

15 IFG$=*0'THEN60SUB9000ELSE!4 

16 DATA233.243.143,145,247,243,450,148,147,199,247,248,150,148,147,149,350,145 

17 DATA143,145,147,145 

1E DATA299,238,243,143,145,247.243,450.148,147 
19 DATAI 99, 247,248,150.247,248,445.243.443 
2C DATA-Î 

25 AM=46080+8«42 

26 F0SI=CT07 


Un avion en déroute se pose suc¬ 
cessivement dans dix capitales 
européennes : il faut donner le 
pays, la capitale et la population 
à 10 % près. Toutes les instruc¬ 
tions nécessaires se trouvent 
dans la présentation. 

ADAPTATION ORIC 1 

- CALL # FBI 4 - CALL # FAFA 

- CALL # E76A - # E6CA 

- CALL # E93D - # E804 

- Remplacer ?@ X,Y par POKE 
61 6, Y — 1 -. ? 

- POKE 61 7,X 

Taper les lignes telles qu’elles 
sont sans espace, utiliser (?) pour 
PRINT, certaines lignes étant au 
maxi, non parce que le pro¬ 
gramme soit très dense, mais 
parce que le programme réalisé à 
deux a été plusieurs fois remanié 
et peut être amélioré dans sa pré¬ 
sentation... 

Les chiffres de population doivent 
être vérifiés. Après utilisation 
régulière de ce programme, tous 
les Oriciens français feront men¬ 
tir la réputation de nullité géogra¬ 
phique des Français. 



27 READX X :R0KEAM+1,X X 

28 NEXT! 

30 DATAS, 9,28,62,62,8,3,28 

105 REM ♦♦********♦**♦**♦**»******* 

106 REM * . 

107 REM ♦ CARTE DE L’EUROPE ♦ 

108 REM ♦ ♦ 

109 REM ♦+**»♦*»**♦*♦***#****♦**♦*♦ 


110 DATA198,188, 

198,177, 

200,175 

111 DATA 190,178, 

182,: ( 8, 

181.18’. 

112 DATA175,181, 

173.133, 

173,180 

113 DATAI72,178. 

170.173. 

170.160 

114 DATA176,166. 

179,159, 

190,151 

115 DATA192.153. 

195.151, 

148.153 

116 DATA205,153 

125 DATA 205,143, 

20^, 143, 

i9o,137 


126 DATA 199,127, 

188,133, 

191,138 

127 DATA 187,141, 

184.137, 

185,133 

128 DATA 182,134, 

182,131, 

172,131 

129 DATA 174,157, 

169,163, 

167,161 

130 DATA 163,162, 

162.164, 

159,16- 

131 DATA16C,166, 

159,171. 

163,17 : 

132 DATA162,177, 

160,177, 

! 60,181 

133 DATA158,181, 

156,180, 

156,177 

134 DATA155,174, 

158,174, 

158,173 

135 DATA152.166, 

149,157, 

139,;4t 

136 DATA139,142, 

136,142, 

135.138 

137 DATA130.141, 

135,153, 

140.156 

138 DATAI39,157, 

146,164, 

l-o,166 

139 DATA145.166. 

142,163, 

142,169 

140 DATA139,174, 

139.172. 

!4\ite 

141 DATA126.153. 

128.151. 

125.147 

142 DATAI17,144, 

112.1-5, 

109. lai- 






143 DATA1C7.144. 

105.149. 

102.152 

144 DATA 96,15e, 

95,162, 

93,162 

145 DATA 93,i64, 

82,167, 

77,1-67 

14o DATA 74,160, 

70,160, 

71,152 

147 DATA 71,149. 

77,131. 

77,126 

148 DATA 79,128, 

82,131, 

83,130 

149 DATA 93,137, 

95,137, 

98,131 

150 DATA 98,124, 

99,122, 

96,119 

151 DATA 96,117, 

93.117, 

93,114 

152 DATA 96,113, 

W,115, 

100,110 

153 DATA101.110. 

102,113, 

105.113 

154 DATAI05,111, 

110,109, 

112,107 

155 DATAI 18,ICI, 

119,103, 

120,100 

156 DATAI23.99, 

126,98, 

127,9G 

157 DATA130.86. 

133,86, 

133,90 

158 DATA130.96, 

133,99, 

138,98 

159 DATA139.9R, 

148,97. 

150,99 

160 DATA154,96, 

155,84. 

159,86 

161 DATA158.77, 

163,74. 

169,72 

162 DATA164.69, 

157,73, 

154,65 

163 DATA155,60, 

156,56. 

159,49 

164 DATA159,46, 

155,46, 

151.5e 

165 DATA146,70, 

149,70. 

149,76 

166 DATA145,82, 

143,90, 

140,90 

167 DATA137,92, 

134,74, 

128,79 

168 DATA126,79, 

124,74, 

126,68 

170 DATA130,55, 

133,55. 

146,34 

171 DATA149,28, 

158,20, 

168,24 

172 DATA182,34, 

182,37. 

176,40 

173 DATAI71,37, 

174,43, 

180,50 

174 DATA182,50, 

181,46, 

184,36 

175 DATA189,37, 

187,27, 

190,27 

176 DATA192,33, 

195.24, 

206,18 

177 DATA999.999 



180 REM ***** ISLANDE ***** 


181 DATA93,37,90,37, 87,32 

182 DATA 89,27, 

92,27, i 

89,22 

183 DATA 94,22, 

95,25, 101,28 

184 DATA102,34, 

93,37, 999,999 

190 REM ****** IRLANDE ****** 

191 DATA96.88, 

93,95, 85,95 

192 DATA85,91, 

88,90, 90,84 

193 DATA96,88, 

98,83, 95.82 

194 DATA93.81, 

90,83, 999,9P9 

200 REM ****** GRANDE BRETAGNE ****** 

205 DATA 103,70, 

104,70. 

101,77 

206 DATA102.84, 

101.88, 

102,88 

207 DAT A102,93. 

98,94, 

95,99 

208 DATA100,102, 

92,104, 

107,107 

209 DATA109,105. 

110,100, 

107.100 

210 DATA107.B9, 

105,81, 

109,75 

211 DATA106,75, 

108,70, 

102,84 

212 DATA999.999 



220 REM ***** CORSE ***** 


221 DATA121,148, 

120,154, Il 

21,155 

222 DATA122,148, 

999.999 


230 REM ***** SARDAIGNE ***** 

231 DATA122,159, 

122,167, 

121,165 

232 DATA120,168, 

118,159, 

121,159 


233 

240 

241 

242 

250 

251 

252 

255 

256 

257 
260 
261 
262 

263 

264 

265 

266 

267 

268 

270 

271 

272 

273 

274 

275 

276 
280 

281 

282 

283 

284 

285 

286 

287 

288 

290 

291 

292 

293 

294 

295 

296 

297 

300 

301 

305 

306 

307 

310 

311 

312 

315 

316 

317 

320 

321 

325 

326 


136.173 

999.995 

163,187 

999,999 


DAT4999.999 
RE" ***** SICILE ***** 

DATA 131.172, 133,173, 

DATA 136.179, 131,172, 

REM ***** CRETE ****** 

DATA 161,184, 169,184, 

DATA 164.188, 161,194, 

REM ***** CHYPRE ****** 

DATA 139,185, 192,135, 193,189 

DATA189,185, 999,999 

REM **************************** 
REM ** 

REM * FRONTIERES EUROPEENNES * 
REM ** 

REM **************************** 
DATA324.324 

REM ***** URSS/FINLANDE***** 
DATA166.69, 171,57, 170,52 
DATA164.31, 168,25, 999,999 
REM*NORVEGE/URSS/FINLANDE'SUEDE* 
DATA164,32, 161,26, 155,29 
DATA150,34, 141,53, 139,5* 

DATAI 38,66, 138,70, 136,76 

DATA999.999 

REM**** FINLANDE/SUEDE ******* 
DATA157.45, 154,31, 999.999 
REiWRSS/ POLOGNE/TCHE COSLOVAQUIE / 
ROUMANIE/HONGRIE* 

DATA151.9B, 160,98. 159,112 
DATAÎ60,113, 158,123, 158,123 
DATAÎ67,127, 170,130. 172,137 
DATA999,999 

REM **** BULGARIE ***** 

DATA174,146, 170,146, 

DAT A165,147, 158,146, 

DATA151,137, 157,129, 

REM**** TCHECOSLOVAQUIE ****♦♦♦ 
DATA157,125, 146,129, 143,129 

136,124, 

143,117, 

150,119, 


170,144 
156,1*» + 
995,999 


133,117 
144,116 
158,122 


DATAI 42,125, 

DATA140,114, 

DATAI49,121, 

DATA999,999 

REM*** RDA/POLOGNE ****** 

DATA140,114, 138,98, 999,959 

REM*** DANEMARK/RFA **** 

DATAI 29,95, 126,95 , 999,999 

REM*** RFA/RDA **** 

DATA132,99, 132,102, 133,104 

DATA128,115. 999.999 

REM*** AUTRICHE/SUISSE/RFA **♦ 
DATA136,124, 132,127, 126,127 

DATAI 19,126, 999,999 

REM*** FRANCE **« 

DATA122,119, 119,117, 119,108 

DATA123,99, 999,999 

REM*** PAYS-BAS/BELGIQUE *♦♦ 

DATAI13,107, 119,107, 999,999 

REM*** BELGIQUE/LUXEMBOURG/FRANCE* 
DATAI 10,109. 118,117, 999,999 


330 REM*** LUXEMBOURG *** 

331 DATAI 19,113, 116,114, 999,955 

335 REM*** FRANCE/ITALIE/SUISSE *** 

336 DATAI 19,127, 116,132, 118,132 

337 DATAI 13,144, 599,559 

340 REM***ITALIE/SUISSE/AUTRICHE/HONGRIE *** 

341 DATAI 18.135, 121,134, 126,133 

342 DATA126,127, 126,132, 132,132 

343 DATAI35,134, 142,134, 143,129 

344 DATAÎ41,134. 146,137, 150,13 7 

345 DATA999.999 

350 REM*** YOUGOSLAVIE/BULGARIE *** 

351 DATA158,146, 157,148, 158,151 

352 DATA158,158, 168.155, 173,155 

353 DATA999.599 

360 REM*** GRECE/TURQUIE ♦*♦* 

361 DATA168,155, 168,163, 999,999 

365 REM*** YOUGOSLAVIE/GRECE/ALBANIE * 

366 DATA149.155, 152,152 

367 DATA155,162. 160,158, 153,lo5 

369 DATA999.999 

370 REM**** YOUGOSLAVIE/ITALIE **** 

371 DATA135,138, 135,133, 999,599 

375 REM*** FRANCE/ESPAGNE *** 

376 DATA93,137, 104,148, 599,599 

380 REM*** ESPAGNE/PORTUGAL *♦♦ 

381 DATA75,138, 77,138, 81,141 

382 DATA77,148, 77,151, 73,161 

383 DATA999.999 

490 REM*** FRANCE/RFA *♦* 

491 DATAI22,119, 119,127, 995,999 

500 REM ♦** RFA/RDA *** 

501 DATA133,116, 130,116, 999,999 

502 DATA3924,3924 
399 PAPERO:INK7 

900 HIRES:INK4:PAPER6:CALL#E76A 

904 REM****************************** 

905 REM *♦** DESSIN CARTE **** 

906 REM****************************** 

920 READXA,YA:IFXA=3924THENÎC00 o 
922 IFXA=324THENPATTERN85 :50T0920 
924 REM PATTERN=/FRONTIERES POINTILLES 
925'CURSET XA.YA.l 

930 READX,Y :IFX=999 THEN920 
950 DR/W X-XA, Y-YA, 1 
960 XA=X:YA=Y 
970 G0T0930 
100C PING 
1010 CALL#E93D 

1100 REM ****** BOUCLE JEU ****** 

1959 TT=0 

2000 RErffc*** TIRAGE AU SORT PAYS**** 

2004 F0RI=1T010 

2005 A=INT(((RND(1)*81)+l1/3)’AMELIORATION 
DE L’ASPECT ALEATOIRE 31 ET N0N27 

2006 IFA=D! 1)ORA=D(2)ORA=D(3)ORA=D(4)ORA=D(5) 
ORA=C(6)ORA=D(7)ORA=D(S !THEN2005 

2007 IFA=D(9)THEN2005 

2008 G0SUB5000+A 
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2009 D<Î)=A 

2010 XA=30:YA=180:CURS£TXA,YA,3:CHAR42,0,2: P^lNT:PRÎNT’ APPLTYEZ SUR TOUCHE’:G 

ETA*:PR1NT:PR1NT 

2011 REPEAT 

2012 REM *** DEPLACEMENT AVION ♦*# 

2013 XA=XA+1:YA=YA-1 

2015 CURSETXA-1,YA+1,3:CHAR42,0,2 

2016 CURSETXA,YA,3:CHAR42,0,2 
2018 CALLBFB14 
2020 UNT!lXA=XORYA=Y 
>021 REFEAT 

2023 IFYA=YTHENXA=XA+1:60T02026 

2024 IFXA=XTHENYA=YA-1 

2025 CURSETXA,YA+1,3:CHAR42,0,2:G0T02G27 

2026 CURSETXA-1,YA,3:CHAR42,Q,2 

2027 CUR5E7XA,YA,3:CHAR42.C,2 
2C23 CALL4FS14 
2030 UNTIL<A=XANDYA=Y 
1035 RE y ***** 30 SEC. DE REFLEXION*** 

2G5C FORN=3QTOOSTEP-1 : PRINTN: PR I V ; 

2055 CURSETX,Y,3:CHAR42,0,2:WAIT IG 
2060 CHAR42,0,2:UAIT8:CALLIFB14;WAIr8C 
2064 NEXT 

2066 PRINT" APPUYE’ SUR TOUCHE AVANT DE REPONDRE" 

2067 REM SAISIE REPONSE AVANT 10 SEC. 

2068 PING:F0RZ=1TO1000:L»=KE V $ 

2070 IFL$<>"’7HEN2180ELSENEX T Z:PRINT:PR!NT:PRINT*TRICHEUR" ;Nt=*T" * v ï= 1 T * : ?R-=-îO 
••G0T0223O 

2130 PRINT:PRINT:PRINT: ZAP 
2191 INPUT'PAYS"; N* 

2195 INPUT’CAPITALE";MI 

2197 INFUT’POPULATI&N" ; PR 

2200 REM ««VERIFICATION REPONSE *** 

2210 P=VAL(Pl*l 
2220 PRIN r :PRINT:?RINT 

2230 HA IT1 CO ! ZAF : I FN*=P4ANDM$=V r>€NF R1N T * « BRAVO >»*:TT=TT+4 
2235 I FN*=P* AND.1 *< > V$ T HENP RI NT " B T EN PCJR * ;F*:PPINT’ MAIS LA CAPITALE EST ";V$: 
TT=TT+2 

2240 I FN« > Pî ANDM$=V4 THENPRINT * ERREUR, Ci. S T "A!S LEST 3 T EN *;V$:T 

T=TT+2 

2242 IFN$<>P4ANDM$<>VtTHENPRINT"«< ERREUR »> C’EST *;?$:?RiNT’ CA?i’A>: ’;V» 

2243 WAIT200:PRINT:PRINT: 

2244 IFPR>=P-P/10ANDPR<=P+P/lQTHEN2245&SE?ftINT’P0PULATI0N FAUSSE’ :WAIT200îbOTO 
2246 

2245 PRINT*«BRAVO POUR LA POPULATION» *:7T=TTH:WAIT2GO 

2246 PRINT'POPULATION EXACTE= ";P1*;’ «ions VOTRE CHIFFRE ’jFR:WAIT 

500 

2249 CURSETX,Y,3:CHAR42,0,2:CLS 

2250 NEXTI 

2260 REM**** RESULTATS ****** 

2261 WAIT100:TEXT 

2262 PAPERO:INK 1 

2263 TT=TT/5*2 

2264 IFTT=20THENPfllNT'N’EN FAITES PAS PLUS, C’EST DEJA *ELSEG0TO2267:PRINT 

2265 PRINT* PARFAIT* «G0T02283 

2267 IFTT>14ANDTT018THENPRINT * VOUS SEREZ PROCHAINEMENT AU SOMMET*:G0T02283 

2268 IFTT>11ANDTT<15THENPRINT*C’EST HONNETE* :60T()2283 

2269 IFTT)9ANDTT<12THENPRINT*BOF !'! LA MOYENNE, C’EST TOUT*SG0T02283 

2270 IFTT>7ANDTT<10THENPRINT"C0NSULTEZ VOTRE ATLAS HABITUEL*:G0T0?283 


2271 IFTT>17ANDT«20THENPRINT’ENC01 

2274 IFTT)2ANDTT<8THENPRINT*AVEZ VO 

2275 PRINT:PRINT* L’EUROPE ? 

2276 IFTT>0ANDTT<.'3THENPRINT‘IL EST 

2277 PRINTïPRINT* MOINS*: 

2280 IFTT=OTHENPRINT*C’EST WATERLOO 
2283 PRINT 

2290 PRINT32,13;CHR$(4); * * CHR*(27); 
2310 PRINT32,24;:INPUT'VOULEZ VOUS 
2315 IFA*='0*THENRUN 
2320 IFA$=*N*THENCLS:PRINTCHR$(17) 
2325 PRINT:PRINT:PRINT:PRINT:PRINT: 
- GOOD BYE - HASTA LUEGO* 

2400 WAIT500:CALL583 

5000 REM** CAPITALES ****** 

5001 Pt="GRANDE BRETAGNE* :V4='LÛNDf* 

5002 P$=*IRLANDE*:V$=*DUÎLIN*:P14=* 

5003 P$="ISLANDE*:V«=*REYKJAVIK*: PI 

5004 Pt="NORVEGE":Vt="OSLO* : p l$=*4* 

5005 P$="SUEDE":Vt=*STOCKHOLM*: PI1= 

5006 P$ =, FINLANDE*:V$='HELSINKI":Plj 

5007 P*=*URSS*:V$="MOSCOU , :Plt="19il' 

5008 P$="DANEMARK*:V$="COPENHAGUE*:f 

5009 P$=*RDA*:V*=*BERLIN EST*:P1*=*| 

5010 P4="POLOGNE*:V$=*VARSOVIE*:Plf 

5011 Pf=*H0N6RIE":Vf="BUDAPEST':Plî 

5012 ^'ROUMANIE":V4="BUCAREST":P! 

5013 P<="BULGARIE":V4=*S0FIA*:Plt=* 

5014 P$ =, GREŒ" :Vi=’ATHENES":PÜ=*9 

5015 ?$=*ALBANIE":V$="TIRANA":P1$=* 

5016 ^'YOUGOSLAVIE" :V*="BELGRADE* 

5017 P$="AUTRICHE":V4='VIENfC"gPlt* 

5018 Pi= * TCHECOSLOVAClU IE " : V$= * PRAG. 
5G19 P$=’RFA*:V*=*BONN":P1»=*64*:X= 

5020 P4="PAYS BAS":V$=*AMSTERDAM’: : 

5021 P4=*BELGIQUE*:V$="BRUXELLES*:F 

5022 ^"LUXEMBOURG" :V$="LUXEMBOUR: 

5023 P$= * F RANCE":V$="PARIS": P1*="5- 

5024 P$=’SUISSE":V$:’BERNE*:P1$="6. 

5025 P$=*ITALIE":V4="R0ME":P1$="56' 

5026 P$="ESPA6NE , :V$="MADRID , :P1«=" 

5027 Pt= * PORTUGAL":V$="LISBONNE* : Pi 
6000 REM LECTURE DATA MUSIQUE 
6010 RYTHME=17 

6020 GOSUB8000 
6030 G0SUB70Q0 
6040 PLAYO,0,0,0 

6045 PL0T2,25,17:Pî.OTIO,25,3:PLOTt- 
6047 PING:UAIT200 

6050 M$=KEY* : IFM*=" " THENGOT0603ŒU 

7000 REM MOTEUR MUSICAL 

7010 F0RI=1T0FIN 

7020 PLAY2,0,0,0 

7025 IF0X(I)=99THENGOT0705O 

7030 HUSIC1,0X(I),NX(I),!3 

7034 MUSIC3,027.{ [)+2,N2X( I), 10 

7035 MUSIC2,02X(I),N27.(I), )2 

7040 PLAY7,0,0,0 J 

7050 WAITDX(I)\ 
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UN ESSAI ET C’EST PARFAIT*:«T*M283 
S. VU QU’IL S’AGISSAIT DE*ELSEGC?02276 
:G0T02283 

EU PROBABLE QUE VOUS AYEZ*ELSE2280 
OT02283 

(EN BELGIQUE)...*:G0T02283 

J*;'VOTRE SCORE EST DE*;TT;*/2C*;CHP$(4) 
EJOUER (0/N)*;A$ 


’RINT:PRINTCHR$(4);'”CHRt(27);’J‘;*AU REVOIR 


!S* :P1J=*56" :X=lG2:Y=9S:RET'jRN 
1* :X=89:Y=38:RETURN 
i=*0.22* : X=92: Y=27 : RETURN 
X=129:Y=66:RETURN 
8.2*:X=140:Y=74:RETUPN 
.=• 4.7 ’ î X=ié>C : Y-60: RÊTJ9N 
:X=191:Y=83:RETUPN 
'll=‘5*:X=132:Y=88:RETURN 
6.8*:X=134:Y=1Ü3:RETURN 
: '34.3‘:X=15G:Y=1Ù3:RET'JRN 
: * 10.6* :X=l47:Y=12 t ?:RE T l'RN 
i=*21.3 l :X=165:Y=138:RETURN 
1.8* :X=159:Y=149:RET'JRN 
:X s l63:Y=t73:RETURN 
?.4':X=151:Y=156:RETURS| 
Pl$= , 21.5 , :X=149:Y=I42:RETLiflN 
'7.5‘:X=135:Y=126:RETURN 
: Pî ♦=* 14.8*:X=137:Y=! 16:RE7U3>< 
,20:Y=I10:PETURN 
.$=*14‘:X=117:Y=1C0:RETURN 
t=*9.8*:X=113:Y=l07:RETURN 
:P1$=‘0.4*:X=116:Y=tl3:RtTURN 
’:X=IC6:Y=113:R£TURN 
»*:X=120:Y=128:RETURN 
:X=131îY=15i îRETURN 
S6*:X=89:Y=148:RETIRN 
t=*8.8*:X=70:Y=147:RETURN 




7060 NEXT 

7070 RETURN 

8000 RECONVERSION 

8010 DIMOX( 72),NX(72), 07.172) 

8015 DIN027U72),N27.:72) 

8020 1=0:TX=1: 

8030 1=1+1 :READCX: 1FCX=-1MNRETU9N 
8035 FIN=I 

8040 DZ(l)=RYTHME*(CX/lOC) 

8050 IFDZ(I)=0THENDX(I)=TX 
8060 TX=D7. ( I ) 

8070 CZ=CX-100+INT(C7./100) 

8072 ÎFCX<99THEN8075 

8074 0XU)=99:G0TÙPÜJ0 

8075 REM 

8080 0Z(I)=a/12 

8085 02X11)=0X(I)-1 

8090 NX(I)=1+(CX-12*07.(D) 

3095 N2X ( I ) =NX( I ) +7 : IFN2X11 ) > 12TNEN02X ( I ) =02XU )+1 : N2X ( I ) =N 27. < I i - ! 2 
8100 G0T08O30 

9000 REM MODE D’EMPLOI 

9001 CLS:PAPER7:INK4: 

9002 PL0T2,3,i9:PL0T2,4,19 

9004 G0T09O08 

9005 A=LEN(A»):FORN=lT0A:WAIT2:S0UNDI,150.0:PLAYl,G.l,70:WAlT3 

9006 PLOTX,Y,RIGHT$(A$,M):FL0TX,Y+l,RIGHTt(A4,N): 

9007 NEXT:RETURN 

9008 AS=*EUROP’ORIC*:X=14 :Y=3:PLOTX-5,Y,10:PLOTX-5,Y+1,10:G0SUB90Q5 
9020 PRINTS5,8;*VOUS ETES PROMU COPILOTE SUR UN * 

9025 PRINT'AVÎON DE LIGNE, FELICITATIONS...':CALL»F314:*AÎT60 
9030 PRINT35,ll;"SEULEMENT LE PILO T AGE AUTOMATIQUE* 

9035 PRINT'EST DEREGLE, RESULTAT : VOTRE AVION* 

9040 PRINT’SE POSE DANS M’IMPORTE QUEUE CAPITALE* 

9042 PRINT’EUROPEENNE ... ":CALL#FB14;UAIT60 
9045 PRINT35,16;*POURRIEZ-VOUS ANNONCER AUX 
9050 PRINT*PASSAGERS ANXIEUX DANS QUEL PAYS 1 
9055 PRINT'ET DANS QUELLE CAPITALE ILS SE * 

9060 PRINT*TROUVENT ? ET MEME QUELLE EST LA* 

9065 PRINT*POPULATION DE CE PAYS A 1CX PRES :CALL#FB14 
9070 PRINT38,23;‘FRAPPEZ UNE TOUCHE*:GETA$ 

9075 F0RN=0T013 : PR I NT : NE XT : PR INTCHR» ( 27 ) ; ‘ A NE ’RAPPEZ PAS SI FORT i!" 

9080 F0RN=QT025:CALL#FBÎ4:PRINT:WAIT8:NEXT:PRINTCHR$(30) 

9090 PL0T10,3,10:PL0T12,3,17:PLOT14,3,3:PL0TI6,3,* ATTENTION*:PL0T28,3,23 
9095 PLOT10,4,10:PL0T12,4,17:PL0T14,4,3:PL0T16,4,'ATTENTION*:PL0T28,4,23 
9100 PRINT32,6;\ VOUS AVEZ 30 SECONDES POUR REFLECHIR’:CALL#FB14:WAIT60 
9110 PRINT32,8;\ L’ORTHOGRAPHE DOIT ETRE EXACTE*:CALL#FB14:WAIT80 
9140 PRINT32,10;*. LES NOMS COMPOSES DOIVENT ETRE’ 

9150 PRINT32,11;*ECRITS SANS MAIS AVEC UN ESPACE* 

9160 CALL#FB14:WAIT100 

9170 PRINT32,13;*. LES SIGLES COMME URSS DOIVENT ETRE* 

9180 PRINT32,14;‘ECRITS SANS ESPACE NI POINT*:CALL#FB14:kAIT40 

9185 PRINT32,16;*. LA POPULATION S’EXPRIME EN Million* 

9186 PRINT* 2,5 S’ECRIT 2.5 EN CODE INTERNATIONAL*:PRINT 

9187 PRINT*. LA POPULATION DE L’URSS EST CELLE DE LA PARTIE EUROPEENNE’ 
9190 PRINT31Û,25;CHR$(27);*A*'APPUYEZ SUR UNE TOUCHE*; CHR$(27): 

9200 GETRE*:RETURN 

10000 REM »**»* AUTEURS **♦*« 

1C010 REM ******** CORINNE D’HERMILLY ET CHRISTIAN DIMOUCHY ******** 

10020 REM **** DECEMBRE 84 **♦* ■ 
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Pierre 


EN LANGAGE 
MACHINE 


BEAUFILS et Wolfram LUTHER 


l^ans THEORIC n° 9, une routine de tri en langage 
| M machine était proposée à nos lecteurs. Voici une version 
améliorée de cet utilitaire ; en REM, quelques rappels 
sur son mode d'emploi. 


VERS ï OH AMELIOREE « 19 . 1.86 U.L. 

0 REM TRI H BULLE EN LANGAGE MfiCHINE 

1 REM CREEZ LR MRTRICE A*<N-1> CONTENANT N ENTIERS COMPRIS ENTRE 0 ET 32767 

2 REM P. EK. R*:< I > = RNO< 1>*32768, 1*0 TO N-l, A*< > PREMIER TABLEAU 

3 REM DU PROGRAMME EN BASIC 

4 REM FRITES UN CALL#3000 (LE PROGRAMME LM ETANT EN PLACE.». 

5 REM R LR FIN VOUS RETROUVEZ LES ENTIERS TRIES DANS LE TABLEAU AKCI> 

6 REM LE PROGRAMME LM EST RELOGEABLE 

10 FOR 1*0 TO 166 : READ A=POKE#3000+I,A‘NEXT 
20 INPUT"NOMBRE N* " • N»DIMH>.(N-1 > 

30 FOR 1=0 TO H-1 ! RK( I )=RND< 1 >*32768 » F'RINTA’üC I > ; ■ NEXT = PR J. NT 
40 REM ****** 

50 CALL#3@00 
60 REM ****** 

70 PR INT * 1 2 3 4 5 6 * 8 FOR 1*0 TO N-l =PRINTA7.(I y, ■■ NEXT » END 
100 REM TRI A BULLE ASSEMBLEUR 

HO DATA #R5,#9E,#18,#69,5,#85,0,#A5,#9F,#69/0,#85,1 

115 DRTA#A0,1,#B1,0,#18,#2R,#85,4,#83,#B1,Ô,#2R ,#48,#A5, 4, # 18,#69,7,#85,4,#68 
117 DATA #69,0, #85,5, #13, #R5, #9E, #65,4, #85.■ 4, #R5, #9F, #65,5, #85,5 
120 DATA #A0,O,#B1,0,#85,6,#E6,6,#C3,#B1,0,#AR 

130 DATA #CA,#00,5,#C6,6,#D0,1,#60,#A5,O,#18,#69,2,#85,0,#A5,1,#69,O,#85,1 
140 DATA #A5,0,#18,#69,2,#85,2,#A5,1,#69,0,#85,3,#A0,O,#B1,2,#01,0,#90,#23 
150 DATA #F0,#0E,#B1,0,#48,#B1,2,#91,0,#68,#91,2,#C8,#18.#90■9 
160 DATA #C8,#B1,2,#D1,0,#90,#0C,#FO,#8A,#B1,0,#48,#B1,2,#91,0,#68,#91,2 
170 DATA #R5,2,#18,#69,2,#85,2,#H5,3,#69,0,#85,3 
180 DATA #A5,3,#C5,5,#90,#C2,#A5,2,#C5,4,#90,#BC,#F0,#98 
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PSI vous offre deuK livres suroric 

Pour l'achat de 2 ouvrages P.S.l sur Oric, P.SJ. vous enverra gratuitement, le tome 1 et le tome 2 des "Boite à outils pour Oric". 


La découverte de l'Orlc 
Oric 1 et Atmos 
par Daniel-Jean David 
176 pages - 95,00 FF 

L'Orlc permet à la lois des applications - 
sérieuses et des jeux. Ce livre 
d'initiation couvre ces deux aspects. 
Après une introduction formée de 
rappels généraux sur rinlormatique, il 
comprend essentiellement une présen¬ 
tation progressive du langage Basic. La 
découverte du langage est conduite en 
bAtissant des programmes par amélio¬ 
rations successives au cours 
desquelles les notions nouvelles s'intro¬ 
duisent naturellement. On aborde 
spécialement les points torts de rOric : 
graphiques, sons, couleurs, horloge. 

Oric pour tous 
Oric 1 et Atmos 
par Sophie Bréblon et 
Jacques Bolsgontler 
176 pages - 105,00 FF 
Vous pourrez aborder la 'magie* de- 
roric. les graphiques et les sons, gréce 
aux nombreux exemples illustrés et aux 
programmes commentés de ce livre .Sur 
ces bases, il vous sera aisé d'appro¬ 
fondir vos connaissances et d'écrire 
vos propres programmes ( gestion, 
enseignement, jeux). 

Le cahier du Basic sur Oric 
par Jacques Bolsgontler 
96 pages - 65.00FF 
Une Initiation graphique au langage- 
Basic de rOric 1 et Atmos destinée au 
tout débutant. Les notions de base, 
mode direct.variables, boucles, sont 
présentées à raide des Instructions 
graphiques hauts et basse résolution. 
Des programmes dinéiation puis de jeux 
et de gestion viennent compléter cet 
apprentissage. 

52 programmes Oric pour 
tous 

par Jacques Bolsgontler 
164 pages • 105,00 FF 
Faisant suite à l'ouvrage "Oric 1 pour- 
tous*, ce recueil s'articule sur quatre 
thèmes : des exercices, utilisant les 
(onctions particulières de rOric 1 telles 
que KEYS, PLOT, FILL...des 
programmes d'éducation, proposant des 
idées de programmes de géographie, 
orthographe, anglais, dessins..des 
programmes de gestion, développant 
quelques exemples du type annuaire 
téléphonique., des programmes de jeux: 
Allumettes, le compte est bon, 
biorythmes, jeu de la vie. 

102 programmes pour Oric 
Atmos 

par Jacques Bolsgontler 
96 pages • 
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Cet ouvrage est destiné A vous initier à - 
la connaissance et A la maîtrise 
progressive de votre Oric Atmos A 
travers la réalisation et l'utilisation de 
jeux élémentaires. Les programmes, 
rédigés en Basic Microsoft, sont 
classés par niveaux croissants de 
difficulté, le premier niveau étant 
consacré aux instructions élémentaires 
de ce langage. Chaque programme est 
commenté, accompagné de sug¬ 
gestions pour des améliorations 
possibles et est suivi d'un exemple 
d’exécution. 

L'Orlc à l'afficha 
par Jean-François Sehan 
136 pages - 95,00 FF 
Jean-François Sehan vous propose xà- 
une sélection de 20 programmes de jeux 
d'adresse, de réflexion et de hasard, 
utilisant les possibilités graphiques et 
sonores de votre Oric.Dans un but péda 
gogique. chaque programme est 
accompagné tf un organigramme, dune 
liste de variables et dune explication de 
chaque ligne Basic pour une adaptation 
éventuelle A dautres ordinateurs 

L'assembleur de l'Orlc et Oric 
Atmos 

par Marcel Henrot 
160 pages - 95,00 FF 
Pour aborder cet ouvrage, vous étes- 
supposé connaître le langage Basic car 
rinitiation au langage machine se fait 
grAce A une transposition progressive 
du langage Basic en langage machine. 
Quelques rappels préliminaires portant 
pnncipalement sur les systèmes de 
numérotation et les opérations 
anthmétiquee et logiques viennent vous 
aider. Vous étudierez ensuite les 
opérations de base, les boucles, les 
comparaisons, les tests, la haute 
délinition et les caractéristiques 
majeures de TOric. Tout au long du livre, 
des exemples et des exercices vous 
aideront A étayer les notions que vous 
aurez apprises. 

Boîte à Outils pour Oric 
tome 1-20 programmes 
par Michel Martin 
128 pages - 39,00 FF 

Les possesseurs dominateur Oric 1 ou- 
Onc Atmos trouveront dans ce livre de 
poche de petits programmes ludiques ou 
utilitaires (graphiques, dessins, 
musique etc) écrits en Basic. 

Boite A Outils pour Oric 
tome 2-20 programmes 
par Michel Martin 
128 pages - 39,00 FF 

Tout comme le tome 1, 'Boite A outils 
pour Oric tome 2* contient de petits 
programmes ludiques ou utilitaires, 
écrits en Basic pour les utilisateurs 
d'ordinateurs Oric 1 ou Oric Atmos. 
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ENVOYER CE BON ACCOMPAGNE DE VOTRE REGLEMENT 


En France à : P.S.I. DIFFUSION 
B. P. 86 - 77402 LAGNY/Marne Cedex 
Tél : (16.1.) 60 06 44 35 
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SAVOIR PLUS 


SUR LE 


SEDORIC 



F. GEOTHALLS 
F. TARAUD 


L e SEDORIC a vraiment été une aubaine pur les possesseurs 
de Microdisc. Un Basic étendu, une gestion de fichiers puis¬ 
sante, telles sont quelques unes des nouvelles possibilités offer¬ 
tes aux programmeurs. Si vous en faites partie, nous vous proposons 
tout ce que nous avons pu découvrir sur ce système d'exploitation, 
afin que vous puissiez en tirer encore meilleur parti. 


ORGANISATION GENERALE 

Prenons l'exemple d'une dis¬ 
quette MASTER formatée en 42 
pistes et 18 secteurs (reprenez la 
notice du SEDORIC si vos souve¬ 
nirs s'estompent en ce qui 
concerne l'organisation physique 
d'une disquette). Retenons que 
cette disquette ainsi formatée 
possède 42 pistes concentriques, 
et que chacune d'elles est divisée 
comme un gateau en 17 sec¬ 
teurs. Faites le compte : nous 
avons au total 1 7 » 42 = 714 sec¬ 
teurs. Sachant que le système 
occupe 6 secteurs pour une 
MASTER, il nous reste bien 
714 - (6* 1 7) = 61 2 secteurs 
libres après un formatage. 
Voyons maintenant comment 
examiner les plus importants : 

DEUX UTILITAIRES 

Avant d'aller plus loin, nous vous 
proposons de rentrer les pro¬ 
grammes machine utilitaires ainsi 
que le petit programme Basic 
RWSED qui permet de les action¬ 
ner. 


Tapez-les à l'aide d'un assem¬ 
bleur (listing source) ou alors 
utilisez les deux programmes de 
chargement DATA. 

Le plus court des deux program¬ 
mes machine permet la lecture ou 
l'écriture d'un secteur spécifié sur 
la disquette. Dans notre cas, 
seule la lecture est utilisée : 

Les 256 octets du secteur sont 
envoyés à partir de l'adresse 
# 9100 jusqu'en #9200. Ils sont 
alors affichés sur l'écran à l'aide 
du second programme qui, lui, 
est un DUMP. Celui-ci fait appa¬ 
raître à gauche les codes Hexa et 
à droite les caractères affichables 
(si les codes rencontrés sont 
ASCII). 

Vous pourrez passer au secteur 
suivant avec S, revenir au précé¬ 
dent avec P, ou vous arrêter avec 
ESCAPE. 

Il est à noter que ce programme 
de DUMP pourra tout à fait être 
utilisé pour un tout autre usage, 
que vous possédiez ou non un 
lecteur de disquettes. Il vous suf¬ 
fira de faire : 

DOKE 04, Adresse de départ de 


la zone mémoire à Dumper. 
POKE 01, 01 pour sortie impri¬ 
mante ou 00 pour sortie écran . 
CALL # B800. 

L'option écriture sur un secteur 
sera utilisée prochainement dans 
un programme beaucoup plus 
complet. Gardez donc des ceux 
programmes machine "au 
chaud” jusqu'à la prochaine fois. 

RENTRONS 
DANS LES DETAILS 

LE DOS 

- PISTE 0 SECTEURS 1, 2 et 3. 
Ces secteurs sont réservés et 
permettent entre autres la 
compatibilité avec les DOS 1.1. 
La version du DOS est inscrite en 
piste 1. 

- De la PISTE 0 SECTEUR 5 à la 
PISTE 3 SECTEUR 14 

Le DOS par lui-même. Il sera 
placé de #1400 à #4FFF en 
RAM avant d'être transféré en 
Overlay de #C800 à # FFFF. 

- PISTE 3 SECTEUR 16 à PISTE 
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5 SECTEUR 9 

Nous y trouvons les 6 fichiers : 
RENUM, BACKUP, INIT, COPY, 
etc. Ils seront, lors de leur appel, 
logé en Overlay de # C400 à 
# C7FF. 


LES SECTEURS 
STRATEGIQUES 

Le secteur Système 
Piste 20, Secteur 1 

Octets 00 à 03 

Nombre de pistes par drive (res¬ 
pectivement drive A, B, C et D). 


Octet 04 

Type de clavier (b6 = 0 pas d'ac- 
cent/b7 = 0 qwerty). 

Octets 05 et 06 
Départ du RENUM. 

Octets 07 et 08 
Pas du RENUM. 

Octets 09 à 1D 

Nom de la disquette et date. 

Octets El à 59 

Ligne exécutée au démarrage. 

Octets 5A à FF 

A 00. 

Voici un exemple : 


Octet 00 — Contient # FF 

Octet 01 — Contient #00 
Octets 02 et 03 — nombre de 
secteurs libres. 

Octets 04 et 05 — Nombre de 
fichiers. 

Octet 06 - Nombre de pistes de 
la disquette. 

Octet 07 — Nombre de secteurs 
par pistes. 

Octet 08 — #01 : simple ou dou¬ 
ble face ? 

Octet 09 — # 2A : recopie du 
nombre de pistes ? 

Octet OA — Contient # 00 si 
drive Maître, #01 si Esclave. 
Octets OB à OF — à #00. 
Octets 10 à FF — Bit MAP. Cha¬ 
que bit représente un secteur : Si 
bit à 1, le secteur est vide, si bit 
à 0, le secteur est plein. 
Chaque octet doit être lu de la 
droite vers la gauche. 

SECTEUR RESERVE 
PISTE 20 SECTEUR 3 

Octets 00 à FF — Contiennent 
#00 

LE DIRECTORY 

PISTE 20 SECTEURS 4, 7, 10 
13, 16 


Drive A actif 
Drive B 

C absent 


Accent SET 
Qwerty 


Départ 
du RENUM 
en ligne 100 


Pas du 
RENUM 
de 10 


A 


]~r 



00 

2A00000qf40£400f4A00|455353 

1^ • • ■ et d mm • 

ESS 

Disquette 

ESSAI i 

0C 

414920202020202020203135 

AI 

15 

/Ta 

2F30332F3836J41 4343454E54 

/03/86ACCEN T 

du 15.03 86 / 

24 

205345543A44495220202020 

SET: DIR 



30 

202020202020202020202020 




3C 

202020202020202020202020 



Ligne Basic 

ACCENT SET DIR 

48 

202020202020202020202020 



54 

202020202020(900000000000 




60 000000000000000000000000 
6C 000000000000000000000000 
78 000000000000000000000000 
84 000000000000000000000000 
90 000000000000000000000000 


EXEMPLE 

Cas d une disquette vierge (mais formatée). 


#264 = 612 secteurs libres 



Aucun 


fichier 

i 


# 2A = 42 pistes 
#11 = 17 secteurs 


Disquette 

Maître 


0C 000000000 0 |0 0 0 0 0 0 0 0 0 0 0 0 (Ali 
18 000000C0L - FFFFFFFFFFFFFFH 
24 F FFFFFF FF FFFFFFFFFFFFFFF, 
30 FFFFFFFFFFFFFFFFFFF F |0 FDEî 
3C F6^FFFFFFFFFFFF'FFFFFFFFF 
48 FFFFFFFFFFFFFFFFFFFFFFFF 
54 FFFFFFFFFFFFFFFFFFFFFFFF 
60 FFFFFFFFFFFFFFFFFFFFFFFF 
6C FFFFFFFFFFFFFFFFFFFFFFFF 
78 FFFFFFFFFFFFFFFFFFFFFFFF 
84 FFFFFFFFFFFFFFFFFFFFFFFF 
90 FFFFFFFFFFFFFFFFFFFFFFFF 
9C FFFFFFFFFFFFFFFFFFFFFFFF 
A8 FFFFFFFFFFFFFFFFFFFFFFFF 
B4 FFFFFFFFFFFFFFFFFFFFFFFF 
C0 FFFFFFFFFFFFFFFFFFFFFFFF 
CC FFFFFFFFFFFFFFFFFFFFFFFF 
D8 FFFFFFFFFFFFFFFFFFFFFFFF 
E4 FFFFFFFFFFFFFFFFFFFFFFFF 
F0 FFFFFFFFFFFFFFFFFFFFFFFF 
FC FFFFFFFF 


I Seul le DOS et 
les fichiers système 
sont présents sur la 
disquette avec environ 
90 secteurs utilisés. 


2 • Si maintenant nous stockons un petit pro¬ 
gramme occupant deux secteurs : 


Reste 610 
secteurs libres 


1 fichier 


00 FF00 620^ 01002A11012A0000 
0C 000000000000000000000000 
18 000000g0|-- FFFFFFFFFFFFFFF 
24 FFFFFFFFFFFFFFFFFFFFFFFF 
30 FFFFFFFFFFFFFFFFFFFF0FDB 
3C F6FFFFFFFFFFFFFFFFFFFFFF 
48 FFFFFFFFFFFFFFFFFFFFFFFF 

Cet octet est passé de CO : 1 10 0 0 0 0 0 
à00:00000000 


Le directory utilise d'abord le sec 
teur 4. Si plus de 15 fichiers sont 
créés, on continue sur le secteur 
7, et ainsi de suite. 

Octets 00 et 01 : Piste et secteur 
du directory suivant, s'il existe. 
Octet 02 : Nombre de fichiers + 
1 codé sur les 8 bits de poids fort. 
Remarque : Si 1 5 fichiers créés, 
02 contient 00. 

Octets 03 à OF : Contient #00. 
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EXEMPLES 


Pas d autres Nombre de fichiers 

Direcfones 2+1*3 Nom du fichier 

—;u-J- j — 

00 110001 :000 00000000140000000 ..0 . 

0C OBBB0BBBh553534 I 49.3 1 >020 . ...ESBAI1 
10 ?<&24 1 5 'tafr.OAl l h 4045535» 1 BAS. . . àESSA 

Extension 12 BAS... à 

Le descnpteu' du l.ch.e. j a 000tJÊ000Bl3Îkî000000000000 . 

LbbAll BAS se trouve en —T „ 

piste 05. secteur 10 ^^Cn3000J!l0OJ)Wa00000000000000 . 

ESSAtt BAS occupe 30 4!3 090^0000000000000000000 . 

secteurs (Z9 * 1 secteur pour SJ}sWt/ljJffltdiQCUA000l?i00b900b!i00flldQ0 ............ 

le descripteur) _^<B/d000000000U0000000000M00. 

Pas de protection ^ *0 000000000000000000000000 . 

78 000000000000000000000000 .• 


00 000020000000000000000000 . 

0C 00000000-1553534 149322020 ....ESSAI? 
18 204241 530/0A g2ffa a00B000B BAS...à.. 

24 000000000000000000000000 . 

ESSAI2 BAS n est pas protégé ^-^rfffiTUT^iTimiAiArAiAiTiiTintiAiTifAiAraiAffliArA. 


Octets 00 à 01 : Piste et secteur 
du descripteur suivant, si celui-ci 
est plein. 

Octet 02 : Contient #FF. 

Octet 03 : Type de fichier (cf. le 
Manuel du DOS page 100). 
Octets 04 et 05 : Adresse de 
début pour un programme ou un 
bloc de données. Nombre de 
fiches pour un fichier à accès 
direct. 

Octets 06 et 07 : Adresse de fin 
pour un programme ou un bloc de 
données. Longueur d'une fiche 
pour un fichier à accès direct. 
Octets 08 et 09 : Adresse d'exé¬ 
cution. 

Octets OA et OB : Nombre de sec¬ 
teurs occupés par le fichier. 
Octets OC à FF : Jusqu'à 122 fois 
2 octets indiquant pistes et sec¬ 
teurs où se trouvent les données. 


ESSAI2 BAS esl protégé 


00 

0fJ 

18 

24 


000020000000000000000000 . 

000000004553534149322020 _ESSAI 2 

204 .:415.-’.0/ 0<SJg2Ca 30000000 BAS. 

08000 aa»»B 0 pr 0000 B 0000000 . 

-0t7fô000000000000000000000 ... 


Ocfets 10 à FF : Stockage de 1 5 
postes de directory : 
de 00 à 08 : nom du fichier, 
de 09 à OB : extensions. 

OC : piste du descripteur. 

OD : secteur du descripteur. 

OE : nombre de secteurs occupés 
par le fichier. 

OF : attribut de protection : 

Si b7 = 1, protégée. 

Sinon, b7 = 0 et b6 = 1. 


LES DESCRIPTEURS 

On entend par descripteur un 
secteur regroupant tous les ren¬ 
seignements relatifs à un fichier. 
Il y a donc au moins autant de 
descripteurs que de fichiers stoc¬ 
kés sur la disquette. C'est à l'aide 
du descripteur que le DOS est 


capable 

petits”. 


de 


Pas d'autres 
descripteurs 


Début 
# 501 

PrograrrtTmj' 
Basic 



FlâLi 


Fin : 
#532 


i 


Occupe 1 
seul secteur 


05 t5205E )000 tai0g)l 


l000d i- 

|Bf-;ari 00000000000000000000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 


Ce fichier se trouve 
en piste 5 secteur 12. 


retrouver ses 


EXEMPLES 


Autres secteurs de description 
(s’ils existent) : 

Octets 00 et 01 : Piste et secteur 
du descripteur suivant. 

Octets 02 à FF : 127 fois 2 octets 
indiquant pistes et secteurs où se 
trouvent les données. 

REMARQUE 

Lors d'une opération de suppres¬ 
sion d'un fichier (DEL par exem¬ 
ple), seul le directory est affecté : 
le descripteur ainsi que le fichier 
par lui-même n'est pas effacé. Il 
sera donc toujours possible, avec 
un peu de patience et un bon pro¬ 
gramme, de récupérer le fichier et 
de le réinscrire au directory. 
C'est ce que nous verrons la pro¬ 
chaine fois. 

En attendant, bon amusement ! 


Cas d'un programme Basic situé de # 501 à 
#2117 qui occupe 29 secteurs. 

Ces secteurs sont : piste 5 secteurs 11 à 1 7 
pistes 6 et 7 secteurs 1 à 5. 


0§\0000FF800105172100001D00 


0C 

18 

24 

30 

3C 

48 

54 

60 

6C 


050B050CI050D050E050F0510 
051106010602060306040605 
0606060706080609060A060B 
060C060D060E060F06100611 
070107020703070407050000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 
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Charge ou Ecrit 
un Secteur 
(Pour SEDORIC) 

F GEOTHALLS 
F TARAUD 

16/03/1986 


DRIVE 

PISTE 

SECTEU 

ADBUF 

ROMRAM 

XPRSEC 

XSVSEC 

DU MP 
ADAR 
NUMPIS 
NUMSEC 
FONCTI 


9000 

20 

f: 

04 


9003 

A9 

00 



9005 

8D 

03 

C0 


9008 

A9 

91 



900A 

8D 

04 

C0 


900D 

A9 

JJ 



900F 

BD 

00 

( 30 


9012 

AD 

80 

90 


9015 

8D 

01 

30 


9018 

AD 

81 

90 


901B 

8D 

02 

30 


901E 

AD 

82 

00 


9021 

D0 

00 



9023 

20 

A9 

FF 


9026 

AD 

02 

90 


9029 

re 

09 



902B 

20 

00 

FF 

LIS 

902E 

20 

F2 

04 

FIN 

9031 

60 





9032 

A9 

00 

DUMSEC 

9034 

85 

01 


9036 

A9 

00 


9038 


04 


903A 

A9 

91 


903C 

85 

05 


903E 

20 

00 B8 


9041 

60 


END 


DRIVE $C000 
ROMRAM $04F2 
ADAR $9100 
LIS S902B 
SECTEU SC002 
XSVSEC SFFA9 
NUMSEC $9081 
DUMSEC $9032 


ORG $9000 
OBJ $9000 

=$C000 

=$C001 

=$C002 

=$C003 

=$04F2 

=$FFB8 

=$FFA9 

=$B800 

=$9100 

=$9080 

=$9081 

=$9082 

• Charge ou écrit 

• un secteur 
JSR ROMRAM 
LDA «-ADAR 
STA ADBUF 

LDA 8«ADAR 
STA ADBUF♦1 
LDA a$00 
STA DRIVE 
LDA NUMPIS 
STA PISTE 
LDA NUMSEC 
STA SECTEU 
LDA FONCTI 
BNE LIS 
JSR XSVSEC 
LDA FONCTI 
BEQ FIN 
JSR XPRSEC 
JSR ROMRAM 
RTS 

• Appel du DUMP 

• puis retour BASIC 
LDA «$00 

STA $01 
LDA «-ADAR 
STA $04 
LDA fl«ADAR 
STA $05 
JSR DUMP 
RTS 


PISTE $C001 
XPRSEC SFFB8 
NUMPIS $9080 
FIN $902E 
ADBUF $C00J 
DUMP $B800 
FONCT1 $9082 
END $9041 


DUMP 236 Octets 

F.GEOTHALLS 
F.TARAUD 



ORG SB800 


OBJ $B800 


* ATMOS 

ORIC-1 

AFICD 

=$BBBA 


AFIC 

=$BBF8 

; 

VDU 

=$F77C 

; F73F 

PTRCHR 

=$F5C1 

a Durap 

; FS7B 


; 00 

SAUVE Y 


; 01 

=0 PAS IMPR 


; 02.03 

h AFFICHAGE 


. 04.05 

A DUMP 


; 06 

INV. VIDEO 


; 07 

NB CAR./LIG 


B800 

A B 

BA 


DUMP 

LDA 

■-AFICD 

B802 

88 

02 



STA 

$02 

B804 

A -* 

BB 



LDA 

•♦AFICD 

B806 

85 

09 



STA 

$03 

B808 

A2 

0C 



LDX 

fl$0C 

B80A 

86 

07 



STX 

$07 

B80C 

20 

7C 

F7 


JSR 

VDU 

B80F 

AS 

01 



LDA 

$01 

B811 

FJ 

03 



BEQ 

ADEB 

B813 


DA 

B8 


JSR 

CRLF 

B816 

AS 

08 


ADEB 

LDA 

$05 

B018 

20 

A2 

B8 


JSR 

DUMHEX 

B81B 

AS 

.‘4 



LDA 

$04 

B81D 

20 

a:: 

B8 


JSR 

DUMHEX 

B820 

A5 

01 



LDA 

$01 

B822 

F 0 

09 



BEQ 

ADEB1 


B824 

20 

DA 

B8 

JSR 

CRLF 


B827 

A9 

F8 


ADEB1 LDA 

■-AFIC 


B829 

85 

02 


STA 

$02 


B82B 

A9 

BB 


LDA 

•♦AFIC 


B82D 

08 

c? 


STA 

$03 


B82F 

A2 

15 


LDX 

B$1 5 






. AFFICHE ADRESSE 

B83 1 

A5 



DLIGNE LDA 

$04 


B833 

20 

A2 

B8 

JSR 

DUMHEX 


B636 

A9 

<4 


LDA 

■ $94 


B838 

20 

BA 

B8 

JSR 

AFICHE 






; AFFICHE HEXA 


B83B 

A0 

00 


LDY 

fl $00 


B63D 

98 



DH1 TYA 



B83E 


01 


AND 

«$01 


B940 

F0 

02 


BEQ 

DH 2 


B842 

A9 

80 


LDA 

■ $80 


B844 

85 

06 


DH2 STA 

$06 


B846 

Bl 



LDA 

($04).Y 


5848 

20 

A2 

B8 

JSR 

DUMHEX 


B84B 

ce 



INY 



B84C 

C4 



CPY 

$07 


B84E 

DJ 

ED 


BNE 

DH1 


B850 

8A 



TXA 



B851 

D0 

0À 


BNE 

DH 4 


B853 

A0 

10 


LDY 

AS10 


B855 

A. 

10 


DH3 LDA 

8 $ 10 


B857 

20 

BA 

B8 

JSR 

AFICHE 


B85A 

88 



DEY 



B85B 

: 0 

P B 


BNE 

DH 3 


B85D 

A9 

JJ 


DH 4 LDA 

8 $00 


B85F 

08 

06 


STA 

$06 


B86 1 

A9 

B1 


LDA 

*$91 


B863 

20 

BA 

BB 

JSR 

AFICHE 






. AFFICHE CARACT 

B866 

A0 

00 


LDY 

■ $00 


B868 

Bl 

/•; 


DC1 LDA 

($04).Y 


B86A 

C9 

20 


CMP 

fl$20 


B86C 

90 



BCC 

DC2 


B86E 

39 

71 


CMP 

■ $7E 


B870 

90 

02 


BCC 

DC2«2 


B872 

AB 

DK 


DC2 LDA 

• S2E 


B074 

20 

BA 

B8 

JSR 

AFICHE 


B877 

C8 



INY 



B878 

14 

07 


CPY 

$07 


B87A 

D0 

EC 


BNE 

DC1 


B87C 

A* 

01 


LDA 

$01 


B87E 

PB 

03 


BEQ 

DC3 


B880 

20 

DA 

B8 

JSR 

CRLF 


B883 

‘A 



DC3 DEX 



B884 

PB 

08 


BEQ 

DC4 


B886 

10 

JA 


BPL 

NXTLIG 




AFICD 

$BBBA 

AFIC 

SBBF8 



DUMP 

SB800 

ADEB 

$B8 16 



DH1 

$B83D 

DH2 

SB844 



DC1 

SB868 

DC2 

$B872 



NXTLIG SB892 

DUMHEX 

$B0A2 



IN 

CAFI SB8D3 

CRLF 

SB8DA 


B883 

A9 

17 


LDA 

«$ 17 

B88A 

20 

BA B8 


JSR 

AFICHE 

B88D 




RTS 


B89E 

A9 

04 

DC4 

LDA 

s $04 

B8 90 

85 

07 


STA 

$07 

B832 

18 


NXTLIG 

CLC 


B893 

A5 

04 


LDA 

$04 

B895 

69 

0C 


ADC 

8$0C 

B897 

9 5 

04 


STA 

$04 

B899 

AI 

05 


LDA 

$05 

B8SB 

69 

00 


ADC 

8 $00 

B89D 

85 

05 


STA 

$05 

B89F 

4 : 

31 B8 


JMP 

DLIGNE 

B6A2 

4" 


DUMHEX 

PHA 


B8A3 

4 A 



LSR 

A 

B8A4 

4 A 



LS R 

A 

B8A5 

4 A 



LSR 

A 

B8A6 

4A 



LSR 

A 

B8A7 

20 

Bl B8 


JSR 

AFIHEX 

B8AA 

68 



PLA 


B0AB 

29 

0F 


AND 

• $0F 

B0AD 

20 

Bl B8 


JSR 

AFIHEX 

B8B0 

60 



RTS 






; AFFIC. 1/2 





; EN HEXA 

B8B1 

S9 

0A 

AFIHEX 

CMP 

■ $0A 

B0B3 

90 

03 


BCC 

AFICHE-2 

B8B5 

18 



CLC 


B0B6 

69 

07 


ADC 

»$07 

B0B8 

69 

30 


ADC 

• $30 

B89A 

84 

00 

AFICHE 

STY 

$00 

B8BC 

08 

06 


ORA 

$06 

B0BE 

A0 

00 


LDY 

8 $00 

B8C0 

91 

02 


STA 

($02). Y 

B8C2 

A4 

01 


LDY 

$01 

B8C4 

P0 

0B 


BEQ 

INCAFI-2 

B8C6 

29 

7F 


AND 

«$7F 

B8C8 

C9 

20 


CMP 

fl" “ 

BÊTA 

B0 

02 


BCS 

INCAFI-5 

B8CC 

A9 

20 


LDA 

fl" ' 

£8 CE 

LJ 

Cl F5 


JSR 

PTRCHR 

B8DI 

A4 

00 


LDY 

$00 

B?D3 

E6 

02 

INCAFI 

INC 

$02 

B8D5 

D0 

0D 


BNE 

FIN 

BeD7 

E6 

03 


INC 

$03 

B8D9 

60 



RTS 


B6DA 

A9 

0D 

CRLF 

LDA 

■ $0D 

B8DC 

20 

Cl F5 


JSR 

PTRCHR 

B8DF 

A9 

0A 


LDA 

fl$0A 

B8E1 

20 

Cl F5 


JSR 

PTRCHR 

B8E4 

60 


FIN 

RTS 



VDU $F77C 
ADEB1 SB827 
DH3 $B855 
DC3 SB883 
AFIHEX $B881 
FIN $B0E4 


PTRCHP SF5C1 
DLIGNE $B631 
DH 4 SB85D 
DC4 $B8eE 
AFICHE SB8BA 


10 ****************** 

20 ’ * * 

30 '* RWSED: lecture * 

40 '* et affichage * 

50 ’* d’un secteur * 

60 ’ * * 

70 ’* (Microdisc * 

80 '* et SEDORIC) * 

90 ’ * * 

95 » ***************** 

100 ' 

110 GRAB:HIMEM #8FF0:CLS 

120 LOAD'DUMP.COM":LOAD"UTSED.COM" 

130 NP=43:NS=17 

140 INPUT '"PISTE, SECTEUR" ; P, S 

150 IF P>NP OR P<0 OR S>NS OR S<1 THEN 140 

160 POKE #9080,P ’ Piste 

170 POKE #9081,S ’ Secteur 

180 POKE #9082,1 ’ 1 pour LIRE 

190 CALL #9000 ’ Init et Chargement 

200 CALL #9032 ’ Appel DUMP 

210 PRINT"PISTE ; P ; " SECTEUR ";S;“ (ESC, S, P)” 

220 GET AS:IF AS=CHRS(27) THEN END 

230 IF AS="S" THEN S=S+1 

240 IF AS="P" THEN S=S-1 

250 IF S>NS THEN S=1:P=P+1 

260 IF S<1 THEN S=NS:P=P-1 

270 IF P<0 OR P>NP THEN 140 

280 IF AS="S" OR A$="P" THEN 160 

290 GOTO 140 
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******************** 


Ligne 

100 

CHKS= 15295 

Ligne 

110 

CHKS- 18036 

Ligne 

120 

CHKS= 19765 

Ligne 

130 

CHKS= 9672 

Ligne 

140 

CHKS= 20034 

Ligne 

150 

CHKS= 31606 


1 

2 ’ * * 

3 '* Charge ou écrit * 

4 ’* un secteur * 

5 ’ * * 

6 ’* Chargeur DATAS * 

7 ' * * 

8 ********************* 

9 ’ 

10 CLS:LIGNE=100:C=1:CHKS=0 
15 PRINT" Impression (O/N)" 

20 REPEAT:GET Z$:UNTIL Z$="0" OR Z$="N" 

25 IF Z$="0" THEN PRSET 
30 FOR I=09000 TO 0905F 

35 READDS:D=VAL("0"+D$):CHKS=CHKS+D*C:C=C+1 :POKEI,D 

40 IFC=17THEN PRINT"Ligne "; LIGNE ;" CHKS=";CHKS:LIGNE=LIGNE + 10:CHKS=0:C=1 
45 NEXT I 

50 PRINT'Taper S pour Sauver, autre touche pour Arrêter : GET Z$ 

55 IF Z$<>"S" THEN END 
60 SAVE"UTSED.COM",AO9000,EO905F:END 
65 ’ 

100 DATA 20,F2,04,A9,00,8D,03,C0,A9,91,8D,04,C0,A9,00,8D 
110 DATA 00,C0,AD,80,90,8D,01,C0,AD,81,90,8D,02,C0,AD,82 
120 DATA 90,D0,08,20,A9,FF,AD,82,90,F0,03,20,B8,FF,20,F2 
130 DATA 04,60,A9,00,85,01,A9,00,85,04,A9,91,85,05,20,00 
140 DATA B8,60, CA, 10, F7 , A2,08 , BD, A2,67, DD, 99,67, D0, 41, CA 
150 DATA 10,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA 


Ligne 

100 

CHKS= 15503 

Ligne 

110 

CHKS= 15793 

Ligne 

120 

CHKS= 17549 

Ligne 

130 

CHKS= 13623 

Ligne 

140 

CHKS= 19125 

Ligne 

150 

CHKS= 17910 

Ligne 

160 

CHKS= 15248 

Ligne 

170 

CHKS= 17764 

Ligne 

180 

CHKS= 13938 

Ligne 

190 

CHKS= 8831 

Ligne 

200 

CHKS= 13828 

Ligne 

210 

CHKS= 7480 

Ligne 

220 

CHKS= 13516 

Ligne 

230 

CHKS= 17181 

Ligne 

240 

CHKS= 30427 

LIGNE+10 : 

CHKS 

=0:C=1 


! ******************* 


1 * 
1 * 
* 
* 
* 


DUMP 256 Octets 


Chargeur DATAS 


* 

* 

* 

* 

* 


’******************* 


1 
2 

3 

4 

5 

6 
7 

9 ' 

10 CLS:LIGNE=100:C=1:CHKS=0 
15 PRINT" Impression (O/N)” 

20 REPEAT:GET Z$:UNTIL Z$="0" OR Z$="N" 

25 IF Z$="0" THEN PRSET 
30 FOR I=OB800 TO 0B8EF 

35 READDS:D=VAL("0"+D$):CHKS=CHKS+D*C:C=C+1:POKEI,D 
40 IFC=17THEN PRINT"Ligne "; LIGNE ;” CHKS=";CHKS:LIGh 
45 NEXT I 

50 PRINT'Taper S pour Sauver,autre touche pour ArrêterGET Z$ 
55 IF ZSO' S" THEN END 
60 SAVE"DUMP. COM",AOB800,E0B8EF: END 
65 ' 

100 DATA A9,BA,85,02,A9,BB,85,03,A2,0C,86,07,20,7C,F7,A5 
110 DATA 01, F0, 03,20, DA, B8, A5,05,20, A2, B8, A5,04, 20, A2, B8 
120 DATA A5,01,F0,03,20,DA,B8,A9,F8,85,02,A9, BB,85,03,A2 
130 DATA 15, A5,04,20, A2, B8, A9,94, 20, BA, B8, A0,00, 98,29,01 
140 DATA F0,02,A9,80,85,06,Bl,04,20,A2,B8,C8,C4,07,D0,ED 
150 DATA 8A, D0, 0A, A0, 10, A9, 10, 20, BA, B8,88, D0, F8, A9,00, 85 
160 DATA 06,A9,91,20,BA,B8,A0,00,Bl,04,C9,20,90,04,C9,7E 
170 DATA 90,02, A9,2E, 20, BA, B8, C8, C4,07, D0, EC, A5,01, F0,03 
180 DATA 20, DA, B8, CA, F0, 08, 10, 0A, A9, 17,20, BA, B8,60, A9,04 
190 DATA 85,07,18,A5,04,69,0C,85,04,A5,05,69,00,85,05,4C 
200 DATA 31,B8,48,4A,4A,4A,4A,20,Bl,B8,68,29,0F,20,Bl,B8 
210 DATA 60,C9.0A,90,03,18,69,07,69,30,84,00,05,06,A0,00 
220 DATA 91,02, A4,01,F0,0B,29,7F,C9,20,B0,02,A9,20,20,Cl 
230 DATA F5,A4,00,E6,02,D0,0D,E6,03,60,A9.0D,20,Cl,F5,A9 
240 DATA 0A,20, Cl,F5,60,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA 
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20, rue de Montreuil - 94300 VINCENNES - (1) 43.28.22.06 

du mardi au vendredi :10h30à13h-15hà19h-le samedi : 10 h 30 à 19 h 


REVENDEUR OFFICIEL AGRÉÉ ORIC-FRANCE 



SYNTHÉVOC 1 


K> 



*11 ne lui manque que la parole*, synthé V0C1 la lui donne 1 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard quun politicien en 
campagne ! 

i I synthétiseur vocal 55U F 


MODEM 

Votre ORIC souvre sur l'extérieur II "discute" 
avec ses semblables et accède au réseau 'minitel* 
Fourni avec interface intégrée et logiciel 
I ] modem- 1490 F 




Interface tous |eui 

Grlce è cet interface programmable vous utili¬ 
ser*/ vos |oysticks avec tous vos logiciels de |eui 
□ interface tous |éux 360 F 


Rallonge Péntel 
Ne soyez plus 'collé* à l'écran ! 
' ] rallonge 16 F 



AMPLIBUS JASMIN 

Amplifie les signaux du bus permettant ainsi la 
connexion de 3 interfaces 
U ampli bus 3 50 F 


Interrupteur 
Ne courrez plus le risque de faire sauter la ROM 
□ interrupteur d'alimentation sa F 




Grâce â cet interface vous pourrez brancher jusqu'à 3 appareils 
•n sortit péntel sur votre moniteur ou téléviseur (cible rac 
cord non fourni) interface multi pérrtel 496 F 

Câble péntel mâle femelle nécessaire pour connecter Tinter- 
face multi péritel il peut aussi être utilisé comme rallonge 
péntel pour tout appareil 

□ rallonge péritel (1.20 m) 235 F 



Imprimante Smith Corona Faste*» 80 
80 caractysac. impression bidiractionnelle. 
entrainement par friction, mterf contromc. buffer 
intégré, écriture normale ou condensée 
□ Fastexl 80 . 1995 F 


Imprimante MCP 40 

l'imprimante 4 couleurs aux couleurs d ORIC 1 


□ imprimante MCP 40 SSOF 

Cassette spéciale micro 

□ les 5__—-45 F 

□ les 10_MF 

□ disquette vierge 3 pouces 35 F 


» 

JASMIN 2 

le lecteur de disquette que votre Oric préféré 
Permet, entre autres, de recopier sur disquettes 
les logiciels (même plombés) sur cassette 

□ lecteur double télé 2490 F 



O hvt'Mismtn 

□ ROV terreur 

□ million évita 

□ laimmui 

□ mill tonna lia 

□ mastli pamt 

□ hatfat 

□ cité maudit» 

□ macaéam bumper 

□ triathlon 

□ ugo 

□ compilait»! gr aph.q 

□ cyber mt a 

□ bugi butttf 

□ candy Hong 

□ chou 

□ couit do toilage 

□ cvéi 

□ dambuitvr 
éamtal ta dutraii 

□ don l pmi iht lativr 
! 1 d«aughti 
U vlokiro itorm 

□ ««non 3 

□ faataty 

□ frigatt commandai 

□ ganam 

□ ghoit gobblei 
ü gtaan croix toad 
D gubbia 
U banchback 

□ ryclvi 

□ Mtvadvi 
U itivitd ol daatti 

□ piayground 21 

□ praba 3 
U ravin* 

□ ipoca wall 

□ luptrfiHit 
nttio go.il 

□ mek tbvt 

□ ultra 

□ «anon t 

□ rorgon 

□ 1815 

□ mourir» gdt vrtaiie 

n atlvntn 

□ hyperipaca 4 

□ durandal 

□ chvllvngor 

□ cobra prnball 
U strats 

□ mon croitéi 

□ palyticbiar 

□ btbltefiche 
U evrntt aéreuti 

□ «actaratieo 

□ Imancvt 

□ tortut kiflic 

□ ordr tiare* 

□ banc twrbo 

□ la Utvre at la tartua 

□ lermulf 1 

□ kit écran 
H monopolic 
U «Itaira an or 

□ worW mu 3 

LOGICIELS DISQUETTE (JASMIN) 

[ i aitamblaur 
U ratt tait 

□ muttilrch 

□ cale 

□ lerth 
C ] lasmnel 

□ mathagraph 

□ finançai 
U tanguaranti 
üa««e» 

□ tanga. 199 F 


□ la irésar du pu et» 

95 F 

□ cela ne 

105 F 

□ 3 0 bagua 

140 F 

«•gla der 

180 F 

□ 3 0 -nunch 

140 F 

□ Mimant 

140 F 

□ mamb lymbelq 

260 F 

□ asitmil (angUnI 

250 F 

□ challangar varia 

140 F 

0cracky 

120 F 

□ diamant lia maudit» 

160 F 

0*wr 

120F 

□ »dn»ut mumcal 

95 F 

□ dipgtr 

180 F 

□ lr»lan 

.120F 

□ gaagragk 

140 F 

□MM 

120F 

□ uuMMuCAO 

180 F 

□ Mitai airae 

180 F 

□ logo Vt 

295 F 

□ tangragb 

290 F 

□ aanttf dr (ému» 

140 F 

□ myil*f » bttlMkii 

190 F 

□ rataar dr gemui 

160 F 

□ tapar i»»p 

120F 

□ tic lac 

120 F 

□ vtiran 

120F 

□ calcul maniai 

120F 

□ star 

130F 

□ variai 

270 F 

□ budgat familial |loriti»l) 

160 F 

□ lontal 

430 F 

□ antna lapin 

125F 

□ ralaad garrot 

120 F 

□ icuba dtvt 

95 F 

□ tha hobbit 

175F 

□ «raydor 

110F 

□ iiarlar 3 0 

130 F 

□ calcul aa 4a 

120F 

Ucataganc 

95F 

□ dataclnra llary 

149 F 

13 don ruan 

150 F 

□ drivai 

120F 

□ lira flaib 

120 F 

: : triant da napUMM 

95 F 

□rN. 

180 F 

□IM phi 

160 F 

□ laça» 

95 F 

□ mimon rmpatirMa 

120F 

Q malticak tcaraj 

190 F 

G optimum 

140 F 

G ontenba 

250 F 

□ parue 

95F 

C J Kaba diva 

100 F 

□ atyx . 

120F 

□ tramai ona 

140 F 

□ roolympic» 

120F 

□ la i ocrai du tombeau 

150 F 

U VfiH . 

185 F 

13 fabb.t 

95 F 

U cabro . 

95 F 

□ montiagur 

140 F 

□ trypl Uwm 

100 F 

□ dtagarautamont vétrt 

150 F 

□ denéact 

120 F 

□ draèagaa 

120 F 

LIVRES 


U programrnm»» aa lang mach 

95 F 

□ garda prattqac 

78.50 F 

□ détouvart» do Tenc 

95F 

□ aric à ratficb» 

95 F 

□ aric aimai paar taas 


□ 52 prag peur tout 


□ claft paar oric aimai 

105 F 

[1 cahiers du basrc 

65 F 

□ T auamblaur da Tatmat 

95 F 

□ 102 prog pour aimas 

120F 

□ Mtatfacai paar prie 

69 F 


LOGICIELS CASSETTES 

140 F 
95 F 
95 F 
120 F 
120F 
250 F 

250 F 
140 F 
160 F 
150 F 
150 F 
250 F 
100 F 
130 F 
100 F 
120 F 
240 F 
105 F 
105 F 
125 F 
110F 
100 F 
100 F 
110F 
95 F 
95 F 
95 F 
105 F 
105 F 
100 F 
100 F 
100 F 
105 F 
105 F 
110F 
95 F 
95 F 
100 F 
95 F 

195 F 
95 F 
100 F 
110 F 
110F 
160 F 
180 F 
‘80 F 
120F 
120 F 
130 F 
140 F 
120F 
120F 
180 F 
120F 
120F 
180 F 
180 F 
160 F 
140 F 
140 F 
110F 
180 F 
120F 
160 F 
165 F 
95 F 


490 F 

590 F 
590 F 
590 F 
590 F 
490 F 
249 F 
219F 
219 F 
219 F 


Moniteur 12" 

Splendide moniteur 12" monochrome vert ou 
ambre Un modèle professionnel è un prix grand 
public 

□ moniteur 12" vert ou ambre 996 F 

□ moniteur couleur 2760 F 


Câble Imprimante 

Vous permet de connecter votre Oric â n importe 
quelle imprimante au standard "centronrc" 

□ câble imprimante ia« F 

Cible Moniteur 

Pour brancher votre Oric è un moniteur mono 
chrome 

□ câble moniteur as y 



GRAPHISCOP II 

Conçue et fabriquée en France, la tablette gra 
phique à digitaliser "GRAPHISCOP II* vous per 
mettra de dessiner à la fois sur un papier et 
è Técran an utilisant la résolution graphique 
maximale de votre micro-ordinateur 
"GRAPHISCOP II* est livrée avec un boîtier 
interface connectable à votre micro, un manutl 
d'utilisation, un logiciel sur cassette ou disquette 
La partie principale du Source est en Basic pour 
permettre â l'utilisateur d'a adjoindre de nouvelles 
fonction*._ 



□ GRAPHISCOP II (avec interface) 1490 F 



l IMPRIMANTE PERSONNELLE 
COULEUR -OKIMATI 20 

l OXIkUM 70 m l» xmm a 


2950 F 


, i 


Carte E/S 

Vous permet de commandai moteur, relais, lampe, 
sonnerie, projecteur 

□ caria 8 E/S 395 F 



Carte E/A 

Pour transformer votre One en centrale de me 
sures Possibilité dé brancher plusieurs caries 
□ carie 8 E/A_ 395 F 


Mignétophone 

Ce magnétophone spécialement conçu pour les 
micro ordinateurs vous évitera bien des soucis 
Entrée OIN ou Jack Niveau réglable Témoin 
sonore et lumineux Alimentation intégrée 
□ magnétophone 350 F 



Carie mère 

Grlce â ce câble vous pourrez connecter 3 inter 
faces et garderez la possibilité da brancher un 
lecteur de disquettes 

U carte mère 3 slots_ 205 F 

□ même modèle mais 1 Slot_15 F 




Mannesmann MT 80S 

L imprimante “top niveau" 
miliale 100 caractères par seconda raptai 
normal ou informatique Entrainement par 
friction ou traction Si vous recherche/ une 
qualité 'courrier*, la MT 80S vous donnara 
plus que des satisfactions tant pour le texte 
que pour le graphisme 

□ Mannesmann MT 80S 3350 F 


□ Macalmi or* 


150 F 


COMMENT COMMANDER : 

- Cocher Ms) articMs) devais) ou faites en une kste sur une feuille a pan - Fartes le total + frais de port (20 F pour achats inferieurs à 500 F. 40 F de 500 à 1000 F 80 F pour tout achat supérieur a 1000 F) 

NOM _ PRENOM : _ TEL :_ 

ADRESSE : -CODE POSTAL : _VILLE : _ 

Mode de paiement : □ chèque D mandat D contre-remboursement (prévoir 20 F de frais) 

envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES réseau 


r 









































































Pierre JULIEN nous propose deux 
petits trucs qui, en quelques 
lignes, simplifieront grandement 
la vie aux programmeurs. 

RESTORE N EN BASIC 

Essayez-le pour voir ! 

5 IHPUT"ENTRER LE NO DE LIGUE*.NL 

10 N0=#501 

20 I »DEEKvHft+2) 

30 XF I -MLTHEHDÙI E#Bû,IIh-1 RETUPN 
40 N0=DEEB' N0 > 

50 GOTO20 

COULEUR DE FOND EN LORES O 

L'écran en LORES O est déséspé- 
rément noir. Pour obtenir une 
autre couleur, rien de plus sim¬ 
ple ! Le petit programme proposé 
ici se charge de pallier à ce 
défaut. 


Dans l'exemple ci-dessous, la 
valeur "POKÉe" en # B40D 
donne un fond bleu (#14). 


F 

10 Oh T fi 02 . 04.00 . 00 . 0 ?. 08 . $5 . 15 . 03 . BB , 85, 16 . 0 
9 . 14 , 91 , 15 

20 D0T0 C3.D0.FB.£6,lé,C0.DO,FO.31,15,CS,00.3 
S.O0.F9,S0 

40 FGRI=0T031 RE0DCS C=V0L«, POKE#B400+ 

I,C NE,-.T 
50 C0LLtiB400 


I Trucs 
Jasmin 


■ U B40*3 


B 4 00 

02 

04 

ldx 

«84 

B402 

00 

00 

LDï 

«00 

B 4 04 

09 

03 

LD0 

*03 

B408 

35 

15 

8T0 

15 

B403 

03 

BB 

LD0 

«BB 

B4Ûfi 

85 

18 

ST0 

18 

B40C 

03 

14 

LD0 

«14 

B40E 

91 

15 

8T0 

15 

B41Ô 

CS 


INY 


B41 1 

D0 

FB 

B NE 

B40E 

B413 

ES 

18 

INC 

18 

B415 

C0 


DEX 


B416 

D0 

F8 

BNE 

B40E 

B418 

91 

15 

ST0 

C 15 » 

B410 

C8 


INÏ 


B41B 

C0 

33 

CPY 

S 

B41D 

D0 

F9 

BNE 

BUS 

B41F 

80 


RTS 



Il vous est certainement arrivé, 
lors d'une utilisation fréquente du 
lecteur pour lire des fichiers, 
d'obtenir sur votre écran le 
compte-rendu suivant : 

-I/O ERROR IN ... 

Inquiétant ? 

Non, pas vraiment si votre logi¬ 
ciel ne se "plante" qu'après un 
certain nombre de lectures". Ce 
n'est qu'un simple problème de 
gestion de variables alphanumé¬ 
riques. Placez de temps à autre 
dans votre programme l'instruc¬ 
tion : 


WW = FRE(" ") 

et voilà vos ennuis envolés. 
Merci à Thierry POTIER pour ses 
astuces intéressantes. 


COMPTE BANCAIRE 


C Jean-Yves BRUN 

e programme permet la gestion d'un ou plusieurs comp¬ 
tes bancaires sur ORIC ATMOS et JASMIN. Nous vous 
rappelons qu'un tel programme a déjà été publié dans 
THEORIC pour les possesseurs de "MICRODISC". 

CHARGEMENT "xxxxxx,S = 1":!CLOSE 1). 


Tapez, pour commencer, le pro¬ 
gramme contenant les DATA du 
langage machine et ce, sans vous 
tromper. Toute erreur serait fatale 
par la suite ! 

La partie Basic est prévue pour la 
gestion de deux comptes, mais 
en modifiant les lignes 100 à 
200, il vous sera facile d'en gérer 
un nombre plus important. 
Sauvegardez-la en prévoyant un 
démarrage automatique. 

Avant la mise en route, créez sur 
la disquette le nombre de fichiers 
nécessaires en les appelant des 
noms que vous utiliserez dans les 
lignes 100 à 200 (ICREATE 


MISE EN ROUTE 
ET MODE D'EMPLOI 

Après avoir "booté" la disquette, 
apparaît un menu permettant le 
choix entre les différents comp¬ 
tes à gérer. Après ce choix, un 
deuxième menu permet de choi¬ 
sir la fonction désirée. 

Mise à jour 

Sur une feuille de 80 caractères 
de large, divisée en 7 colonnes 
(Date, n° de Chèque, Bénéfi¬ 
ciaire, Objet, Dépôt, Retrait, Sol¬ 
des), s'affichent les 18 dernières 


écritures pratiquées. A l'écran 
apparaît la partie gauche de cette 
feuille, la partie droite est acces¬ 
sible par la commande CTRL A et 
le retour à la partie G par CTRL Q. 
Le curseur est positionné dans la 
colonne date et attend la rentrée 
de caractères (maximum 8). On 
passe à la colonne suivante par 
RETURN et l'on peut revenir à la 
colonne précédente par —. On 
peut effacer le contenu de la 
colonne où se trouve le curseur 
par DEL. On ne peut pas écrire 
sur la colonne Solde. 

En ce qui concerne les colonnes 
Retrait et Départ, seuls les chif¬ 
fres et la virgule sont acceptés. 
Le nombre maximal autorisé est : 
99 999,99 (pour la colonne 
Solde : 999 999,99). Le curseur 
est placé sur la colonne des uni- 


40 




tés (francs). Si aucun chiffre n'est 
placé dans la colonne Dépôt, 
RETURN fait passer le curseur 
dans la colonne Retrait. Ici, 
RETURN n'a d'effet que si un 
chiffre ou un nombre y est inscrit. 
Dans ces colonnes, RETURN 
complète automatiquement les 
nombres par une virgule, 2, 1 ou 
pas de zéro suivant le cas, puis 
effectue le calcul avec le solde 
précédent affiché et passe à la 
ligne suivante à la colonne Date. 
Pour sortir de la mise à jour : ESC. 

Modification 

Après avoir indiqué quelle ligne 
vous voulez modifier, le pro¬ 
gramme l'affiche et propose trois 
possibilités : 

Modification du 
texte seulement 
Lorsque cette fonction est sélec¬ 
tionnée, le programme vous 
demande si vous voulez modifier 
la rubrique Date, Chèque, Béné¬ 
ficiaire, Objet. Si oui, tapez votre 
texte puis RETURN, sinon tapez 



RETURN. Vous pouvez utiliser 
DEL pour effacer le dernier carac¬ 
tère inscrit. 

Annulation 

Permet de rayer du compte une 
écriture en compensant par une 
écriture spéciale inverse de l'écri¬ 
ture annulée. 

Ne rien faire, permet de revenir au 
menu. 

LISTING SUR IMPRIMANTE 

Adaptée ici pour une MCP 40, la 
routine sera facilement modifia¬ 
ble pour d'autres imprimantes. 
Elle liste les écritures à partir de 
la ligne indiquée en imprimant le 
numéro de ligne. Le listing s'ar¬ 
rête à la fin du fichier ou après 
que l'utilisateur ait appuyé sur 
une touche. 

LISTING SUR MONITEUR 

Liste le fichier, par série de 25 
écritures, à partir de la ligne indi¬ 


quée. Après chaque série de 25 
écritures : ESC pour sortir, une 
autre touche pour continuer, 
CTRL A pour voir la partie Droite, 
CTRL Q pour la partie Gauche. 

VERIFICATION 

Cette option permet de contrôler 
les relevés bancaires. 

Dans un premier temps, le pro¬ 
gramme permet de "cocher" les 
fiches portées sur le relevé. Dans 
un deuxième temps, il calcule le 
solde en ne tenant compte que 
des fiches "cochées” et qui doit 
donc être égal au solde indiqué 
sur le relevé. 

Pour sortir : ESC. 

Pour que cette fonction puisse 
être utilisée, il faut que, dans la 


Î.V.Î'ÎWV’-V 
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10 A=#5000:F=#58i r l:L=100:REPEAT:F0R A=A TO A+15:READ C* 

20 K=VAL(’#"+Ct >:S=S+K+65536*(S+K>65535): IF A<=F THEN POKt A,K 
3G NEKT:READ D*:IF S^ALCf+W) THEN L=L+5:UNTIl A>F:END 
40 PÎN6:PRINT’Erreur ligne 1 ;L 

100 DATA EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,2O,0O,52,AO,0COA 
105 DATA 00, A9.20,91,00, E6,00, DO, F6. E6,01. A5,01, C9,7A, DO,13BC 
110 DATA EE.A2.50,18,BD,FF,52,69,8O,9D,4F,70,CA,DO,F4,EA,1D73 
115 DATA Bl,00,69,80,91,00,EA,20,BA,52,A9,00,80,16,60,6C,23C0 
120 DATA EA,EA,EA,EA.AD.16,60.FO,06, A9,01,80,16,60,60,20,2BAE 
125 DATA A3,52,EA,EA,EA, AD,0D, 60, C9,0D, D0,56, AR,00,8D,05,33B2 
130 DATA 60,AE,OE,60,E0.04,90,22,20,5F,52,B1,00,C9,20,FO,3A1F 
135 DATA 19,20,5F, 52, C8, A9,2C,91,00, C8, A9,30,91,00,C8, 5 1,40C2 
140 DATA 00,20,1F,54,20,B5,52,4C.44,50.EE.0E,60,AE,0E,60,4504 
145 DATA E0,06.90,06,CÈ,0E,60,4C,44,50,EA,EA,EA.EA,EA.EA,4EE3 
150 DATA EA,EA,EA,ED,57,53,8D,0B,60,BD,50,53,8D,00,60,4C,56°E 
155 DATA 44,50,C9,IB,D0,01,60,C9,7F,D0,06,20,C6,52,4C, 44,5D2D 
160 DATA 50,C9,08,D0,2F,AD,0E,60,F0,17,CE,0E,6O,AE,Œ,60,63C7 
165 DATA BD, 57,53,8D,0B, 60,BD,50,53,8D,00.60,A9,00,8D,05,69AE 
170 DATA 60,4C,44,50,D0,F5,A9,00,8D,05,60,4C,44,50,EA,EA,7102 
175 DATA EA,EA,EA,EA,C9,20,90,4E,AE,OE,60,EO,04,90,18,C9.79E2 
180 DATA 2C,DO,06,20,70.53,4C.44.50,C9,30,BC,03,4C,44,50,7F33 
185 DATA C9.3A,90.03,4C,44.50,AD.05,60,DD,65,53,D0,07,20,8547 
190 DATA 9F,FA,A9,00,F0,1D,AE,05,60,AD,OD,6G, Q D,00,7A,20,8BFA 
195 DATA 5F,52.BD,00,7A,91,0C.88,CA,E0,PF,D0,F5,EE,05,60,94BC 
200 DATA 4C,44,50,4C,44,50,C9,11,D0,08,A9,00,8D,00,60,4C,9AIQ 
205 DATA 44,50, C9,01, D0,08, A9,28,8D,00,60,4C,44,50,*»C, 44,9F74 
210 DATA 50,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,A4Ef 
215 DATA 55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,AA0F 
220 DATA 55,55,55,55,55,55,55,55,55.55,55,55,55,55,55,55,AF5F 
225 DATA 55,55,55,55,55.55,55,55,55,55,55,55,55,55,55,55,B4AF 
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230 DATA 55,55,55,55,55,55.55.55,55,55,55,55,55,55,55,55.BW 

235 DATA 55,55.55,55.55,55,55,55,55,55,55,55,55,55.55,55,B C 4K 
240 DATA 55,55,55,55,55,55,55,55,55,55,55.55,55,55,55,55,C49F 

245 DATA 55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,C9£F 
250 DATA 55.55.55,55,55,55,55.55,55,55,55,55,55,55,55,55,CF3F 
255 DATA 55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,DaBF 
260 DATA AD,00,60,85,00,AD,01,60,85,01,AD,02,60,85,02,AD,D9F6 
265 DATA 03,60,85,03,60,AC,0B,60,AD,07,60,85,00,AD,08,60,DF08 
270 DATA EA,85,01,18,B1,00,69,80,91,00,60,20,00,52,A9,1C,E452 
275 DATA 8D,04.60,A0,27,B1,00,91,02,88,C0,FF,EA,D0.F6,î3,EC5D 
280 DATA A9,28,65,02,85,02,A9,00,65,03,85,03,!8.A9,50,65,F12P 
285 DATA 00,B5,00,A9,00,65,01,85,01,CE,04,60.DO,D5,60,AC,F728 
290 DATA OB,60,AD,07,60,85,00,AD,08,60,85,01,60,AD,08,ôC,FC3C 
295 DATA C9,78,D0.07,AD.07,60,C9,6F,BO,14,lB,AD,07,60,69,02f < » 
300 DATA 50,80,07,60,AD,08,60,69,00,80,08,60,40,92,52,20,0800 
305 DATA 00,56,EE,ÛF,60.A9,00,8D,0E,60,80,00,60,A9,08,3P,CD82 
310 DATA OB,60,60,20,15,52,20,2B,52,20,78,EB,FD,FB,8D,OD,1379 
315 DATA 60,20,15,52,60,20,6D,52,EA,EA,A9,00,8D,OE,60,9D,17A4 
320 DATA 05,60.8D,00,60,60,20,5F,52,AE,OE,6Ü,BC,5E,53,EO,1F90 
325 DATA 06,D0,0B,A9,20,91,00.C8,C0,50,D0,F7,F0,0C,E8,A9,27F7 
330 DATA 20,91,00,C8,98,DD,5E,53,DO,F5,A9,GO,8D,05,60.60,2F56 
335 DATA 20,C6,52,AE,0E,60,BD,57,53,8D.0B,60,60,55,55,55,3568 
340 DATA 7C,20,20,44,61,74,65,20,20,7C,20,43,68,65,71,75,3A7* 
345 DATA 65,20,7C,20,42,65,6E,65,66,69,63,69,61,69,72,65,4048 
350 DATA 20,20,7C,20,20,20,20,20,4F,62,6A,65,74,20,20,20,43FB 
355 DATA 20,20,7C,20,44,65.70,6F,74,20,20,7C.52,65.74,72,4920 
360 DATA 61,69,74,20,7C,20,20,53,6F,6C,64,65,20,20,7C,20,4E19 
365 DATA 00,00,00,08,27,27,27,08,11,21,31,37,40,4A,01,OA,4FD0 
370 DAtA 13,23,33,3C,45,08,08,0F,OF,05,05,06,55,55,55,55,52*0 
375 DATA 20,5F,52,Bl,00,C9,20.D0,04,A9.30,9i.00.C8,A9,2C,5892 
380 DATA 91,00,EE,OB,6Q,EE,OB,60,20,A3,52,AD,QD,6G,C < ?,üP,5ED4 

385 DATA DO,11,20,5F,52,A9,30,91,00,C8,91,00,20,1F,54,20,6402 
390 DATA B5,52.60,C9,30,BO,03,4C,14,54,C9,3A,90,03,4C,14,69BF 
395 DATA 54,20,5F,52,AD,OD.60,91,00,EE, OB, 60,20,A3,52,AD, 6FA4 
400 DATA OD,60,C9,OD,DO,OE,20,5F,52,A9,30,91,00,20,1F,54,7499 
405 DATA 20,B5,52,60,09,30,E0.03.4C,09,54,C*>.3A,«0,03,40,7A5' 
410 DATA 09,54,20,5F,52,AD,00,60,91,00,20,A3,52,AD,0D.6C.7F5F 
415 DATA C9,0D,D0,07,20,1F,54,20,B5,52,60,C9,7F,DO,04,20,9562 
420 DATA F0,52,6O,20,9F,FA,4C,EA,53,C9,7F,DO,04,2O,FO,52,WC4 
425 DATA 60,4C.BC.53,C9,7F,DO,04,20,FO,52,60,4C.88,53,20,9444 
430 DATA 52,54,AO,45,B1,00, C9,2D,DO, 19,A 1 ?,2C.91.00,AE,OE,7AD5 
435 DATA 60,EO,0*,DO,07,20,79,54,20,EA. 55,60,20,60,50,20!,40^6 
440 DATA EO,55,60,AE,OE,60,E0.04,DO,04,20,6o,54,60,20,D9.A732 
445 DATA 55,60.38,AD,07,60,85,02,E9.50,85,00,AD.08,60,35,ADV2 
450 DATA 03,E9,00,85,01,60,20,2A,55,20,33,55,20,8E,54,60,El DD 
455 DATA 45,A9.2D,91,02.91,00,EA,60,20,A5,54,AO,45,B!,02,B817 
460 DATA C9,2D,DO,05,A9,20,91,02,60,A9,2D,91,02,60.A0.45.BE4C 
465 DATA B1,02.C9,30,DO,09,A9,20,91,02.C8,CO,4A,DO,F1,A9,C669 
470 DATA FF,8D,16,60,60,AE,0E.60,A9,45,8D,10,60,BD,5E,53,CD40 
475 DATA 8D,11,60,CE,11,60,AC,10,60,B!,00,AC,11.60,DI,02,D33A 
480 DATA FO,57,90,26,20,2A,55,AC,11,60,B1,02,AC,10,60,C9,D98E 
485 DATA 2C,FO,06,20,EF,55,20,3E,55,20,75,55,DO,E9,20.9E,E015 
490 DATA 54,60,EA,EA,EA,EA,EA,EA,EA,EA,20,2A,55,AC,10,60,E9D4 
495 DATA Bl.OO,18,6D,12,60,29,CF,8D,14,60,AC,11,60,61,02,EE85 
500 DATA AC,10,60.C9,2C,F0,03,20,3E,55,2Ô,75,55,D0,DE,20,F4F4 
505 DATA 8E,54,AO,45,A9,2D,91,02,60,EE,10,60,EE,11,60,AD,FBEE 
510 DATA 10,60,C9.4F,DO,90,20,C4,54,60,A9,AD,BD,10,60,18,0279 
515 DATA BD,57,53,69,03,8D,11,60,A9,Q0,8D,!2,60,60,29,0F,078A 
520 DATA 8D,13,60,CD,14,60,90,12,38,AD,13,60,ED,14,60,8D,0DB3 


525 DATA 15,60,A9,00,8D,12,60,18,90,12,18,A9,OA,6D.13,60,1235 
530 DATA 38,ED,14,60,8D.15,60,A9,01,BD,12,60,AC,10,60,AC.1842 
535 DATA 15.60,07,30,60,71,02,CE,10,60, CE,11,60,AD.10,60,!D7D 
540 DATA C9,44.60,A9,4D,8D,10,60,A9,09,8D,04,60,AC,11,60,2390 
545 DATA B1.02.AC.10.60,C9.2C.F0,32,29,0F,6C,14,60,6!,00,2960 
550 DA1A 18,29,OF,60,14,60,60,12,60,80,15,60,C9,OA,BO,08,2E0A 
555 DATA A9,00,80,12,60,18,90,0E,A9,01,8D,12,60,38,AD,15,330B 
560 DATA 60,E9,0A,80,15,60,AD,15,60,09,30,91,02,CE,10,60,388C 
565 DATA CE,11.60.CE,04,60,DO,B5,60,20,A5,54,20,8E,54,60,3F5P 
570 DATA AO,45,A9,2D,91,02,91,00,EA,60,A9,2D,91,00,6C', 18,4565 
575 DATA 6D,12,60,29,0F,80,14,60,AC,10,60,Bl,00,60,20,20,49EA 
580 DATA A9,EF.85,00,A7,70.85,01,A9,3F,85,02.A9,71,85.03,5087 
585 DATA A0.50.B1,02,91,00,88,DO,F9,A5,02,C9,BF,DO,07,A5,58£7 
590 DATA 03.C9,78,00,01,60,18.A5,00,69,5C.B5,00,A5,01,69,5E66 
595 DATA 00,85,01,18,A5,02,69,50,85,02,A5,03,69,00,85,03,6284 
600 DATA 18,90,CD,20,20,20,20,20,20,20,20,20,20,20,20,20,6579 
605 DATA A2,04, BD,57,53, C9,20, DO,08.E8, BD, 37,53, C9,20,FO,6D8F 
610 DATA 09,8E.0E,60,10,1F,54,20,E5,52,60,20,20,20,20,20,7!AE 
615 DATA 20,20,20,20.20,20,20,20,20,20,20,20,20,20,20,20,734E 
620 DATA 20,20,20,20,20,20.20,20,20,20,20,20,20,20,20,20,754E 
625 DATA 20.20.20,20.20,20.20,20.20,20,20.20,20,20,20,20,774E 
630 DATA 28,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,774E 
635 DATA 20,20.20,20,20,20,20.20,20,20,20,20,20.20,20,20,7B*E 
640 DATA 20,20,20,20,20.20,20.20,20,20,20,20,20,20,20,20,7D4E 
645 DATA 20,20.20,20,20,20,20,20,20,20,20,20,20,20,20,20,7F4E 
650 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,814E 
655 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,834E 
660 DATA 8C,1B.60.AC,1C,60,B1,B4,EE,1C,60,AC,1B,60,60,20,89F3 
665 DATA 4C,49.47.4E.45.20,4E,27,0D,33,2E,2E,2E,2E,2E,2E,8D4E 
670 DATA 2E,0D,2E,2E.2E,43,4F,4D,50,45,4E,53,41,54,49,4F,9152 
675 DATA 4E,0D.44,27,41.4E,4£.55,4C,41,54,49,4F,4E,2E,2E,956D 
680 DATA 2E,OD,20,20,20,20,20.20,20,20,OD,20,20,20,38,39,9786 
685 DATA 2C,30.30,00,20,20,20,20,20,20,20,20,20,20,20,20,999F 
670 DATA AD,07,60,BD, 20,60,AD,08,60,8D,21,60,A7,50,8D,07,7F70 
675 DATA 60, A9,7B, 8D, 08,60,A9,FF,8D, 1 A, 60,60, AD, 20,60,8D,*6B2 
700 DATA 07,60.AD,21.60.8D,08,60,A9,00,8D,16,60,8D,1C,60,ABF1 
705 DATA 85,B4.8D.AA.52,EE,1C,60.A9,57,BD.AÏ.52,A9,7B,85,8450 
710 DATA B5,A9,0D,8D,09,7B,BD,12,7B,8D,22,7B,8D,32,7B,8D,BAD7 
715 DATA 44,7B,8D,3B.7B,20,44,50,A9,78,8D,AA,52,A9,EB,BD,C258 
720 DATA AB,52,60,20,6F,6B,3A,00,A9,08,8D,4E,02,A9,02,8D,C7AF 
725 DATA 4F,02,A0.02,B9,E4,57,99,1A,00,B9,E7,57,99,EF,0C,CEC8 
730 DATA 88,10,Fl,60,4C,FB,57,4C.EA,57, DD,DO,07,AO,01, D6F7 
735 DATA B1,09,4C,16.58,4C,B9,EC,A0,4F,A9,FF,84,A7,85,A6,DF49 
740 DATA A9,23,8D,6A,02,A9,10,BD,6B,02,A9,07,8D,6C,02,AO,E50C 
745 DATA 57.A9,C3.4C.B0.CC,20,E2.00.C9.41,DO.06,20,00,58,EBE® 
750 DATA 4C,E2,00,C9,42,DO,OB,A9,CO,8D,16,60,20,44,50,4C,F1A7 
755 DATA E2,00,C9,43,DO,06,20,E9,58,4C,E2,00,C9,44,DO,09,F8E2 
760 DATA 20,C2,58.20,D9,58,4C,E8,00,C9,45,DO,09,20.C2.58 1 FFC2 
765 DATA 20,El. 58.4C,E8,00,C9,46, DC,2E,A9,OC,80,AA,52,8D,07tB 
770 DATA 1C,60,8D.16.60,A9,57,8D,AB,52,A9 1 0F.85,B4,A9,57,0E15 
775 DATA 85,B5,20,44,50,A9,78,8D,AA,52.A7,EB,8D,AB,52,20,15EB 
780 DATA C2,58,2O,El,58.4C,E8,G0,C9,47,DD,0e.A7.B4,3D.A7 l l£OB 
785 DATA 52,4C,E2,00,C9,48,DO.OF,20,60,57,20,C2,58,20,D9,2485 
790 DATA 58,20,7C,57,4C,E8,00,C9,49,D0,14,A9,2B,8D,A7,52.2B54 
795 DATA EA,EA,EA,EA,EA,EA,EA,A9,27,8D,00,60,20,25,52,4C,3460 
800 DATA E2,00,20,E2,00,20,17,CF,A0,03,B1,CE,85,B4,C8.B1,3C1E 
805 DATA CE,85,B5,20,52,54,AO,4F,60,B1.B4,91,00,88.10,F9,43C2 


810 DATA 60,B 1,00,91,B4,88,10.F9,60,A9,OC,8C,00,60,20,2P,4°EA 
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1 DOKEtlB.ltCCBO 

2 !LOAD*FENETRE.BIN" 

3 CALW57C8 

4 INK7:PAPER0 

5 HIMEM#500C 
10 D0KE#600Q,#7000 
20 DOKE#6002,#SB90 
30 'D0KE#6007, #70F0 
50 P0KE#6O0E,8 
60 P0KE#20C,#7F 

70 P0KE#26A,#22 
75 &A 

80 A*=■ J J JJ J J J J J JJ JJ JJ J J J J JJJJ J JJ J JJJ J J JJ J J J J JJ * 

90 A4=A4+At 
100 CLS 

110 PR1NT310,104*1- COMPTE 1' 

120 PRINT310,12; *2— COMPTE 2‘ 

125 PR1NT31Q,14;"ESC- FIN” 

130 GETW$:Z=2 
140 IFW4O’l*THEN!60 
150 Ff="C0MPTEl=2" 

160 IFWO*2 , THEN180 
170 F$= , C0MPTE2=2* 

180 IFW4=CHRt >27)THENPOKEOiOC,#FF:CLS:END 
190 G05UB500 
200 GOTO100 

500 !OPENFt:P0KE426A,#22 
505 REPEAT:CL€:P0KE*26A.#22 
510 PRINT315,6;*MENÜ- 
52C PRlNTai0.8;“l- MISE A JOUR’ 


530 PRINT310.10;"2- 
540 PRINT310,12: * 3— 
545 PRINT310.14:*4- 
550 PR1NT310,16:“5- 

555 PPII'TSIO,18: 3 ESC- 

556 N=FRE‘**) 

560 GETMt 
570 N=VALiNi) 


MODIFICATION* 

LISTING SUR IKPRÎKAfJE' 
LI5 T ING SUR fï.ViilE'JR’ 
VERIFICATION" 

FIN" 


•SS-:: 

w.v.i 


êm 

/.sV.V 

*! 


W& 

av. 




'$0 




580 0NNG0SUB1000.2000,3000,5000.4000 
590 ‘JNTILN=0 

593 'CLOSEZ :P0KEI26A.*22 
600 RETURN 
1000 &A 

1010 G0SUB1200 
1105 RE=EAT 
1110 &B 

1115 IFPEEK(#cCl6>=0THEN117G 
1130 &EA4 

1140 1 WRITE Z’A4 :P0KE#26A,#22 
1170 UNTILPEEK < #6016 > =D 
1180 RETURN 
1200 ’ 

1210 ' REWINDZ : ' WHEREZ:POKE#26A.#22 

1215 DOKE#6007.#70FÜ 

1220 P=DEEK(#4hF :PF=l;PO=l 

1230 IFP=1THENRETi;RN 

1240 IFP220THEN1255 

1245 PF=°-18 

1250 'JUMPZ,P-i9:POKE#2£A,#22 

1255 REPEAT 

1256 D0KEI6007,DEEK(#6007)t#5C 

1260 ! TAKEZ ’ A« : PF=PF+1 : RO=PO+1 : PWc#26A. #22 
1270 &DAÎ 
1290 &C 

1300 ÜNT!lPF=P0RP0=25 
1310 RETURN 
2000 ’ 

2010 'REWINDZ:'UHFREZ :P=PEFk ■ #48Pi 
2015 CLS 

2020 INPUT'Quelle 1 1 qne voulez-vous *>03:fier ";V$ 

2030 V=VAL(V$1:1FV=1THEN2050 

2040 IFV>1ANDV< PTHEM 1 JUMPZ,V-1ELSE2015 

2050 !TAKEZ’A* 

2060 GOSUB2800 

2220 PRINT"l-Pour changer le texte" 

2221 PRINT'2-Pour annuler 1 

2222 PRINT"3-Pour ne rien faî»e" 

2230 GETW4 

2240 IF W4>"3'-0RWî':"l‘THEN2230 
2250 W=VAL(w4) 

2260 0NWG0SUB230Q,25C0,2270 
2270 RETURN 

2300 CLS:PRIA - *Vouiez-vous changer la rubrique’:PRINT:PRINT 


2310 PRIMT'Date 
2320 PRINT’Checue 
2330 PRINT"Bénéficiaire 
2340 PRINT'Ob.iet 
2350 A4=' "+Di+C4+B$+0t+DE$+3Ei+SO4+* 
2360 'REWIND2 
2370 IFV=1"HEN2390 
2380 1 JUMP2.V-1 
2390 ‘WRITE2’A$ 

2395 RETURN 
2400 L=LEN(C0*i-t 
2410 CH«=" , :GT.SVB:«4Ü 


:Cu4=D4:50SU32400:D*=C W * 
:C04=C«:SCSUB24QQ:C4=CH4 
:C0#=Bt:505J?2400:3$=CH4 
:C04=0$:60SUE2400:04= 'Ht 


43 















première écriture, l'utilisateur 
mette dans la colonne Chèque, le 
chiffre 3 et qu'il rentre au moins 
trois écritures dans le fichier. En 
effet, le numéro de chèque de la 
première écriture sert de pointeur 
au système pour savoir où 
commence la vérification. 


DESCRIPTION 

Partie Langage Machine 

#5000 à #58F1 : routines. 
#6000 et suivants : variables. 

# 7000 à # 7A00 : feuille de 80 
caractères de long et 29 lignes de 
haut. 

ROUTINES 

# 5000 à # 5043 : initialise la 
feuille et met l'en-tête. 

#5044 à #5160 : saisie des 
caractères et appel des sous- 
routines. 

#5160 à #5200 : rien. 

#5200 à #5214 : prépare les 
variables pour l'affichage. 
#5215 à # 522A : met le cur¬ 
seur. 

# 522B à # 525E : affichage. 
#525F à #526C : prépare les 
pointeurs pour écrire un caractère 
à l'écran. 

# 526D à # 52A2 : incrémente le 
pointeur de ligne de # 50 ou 
scrolling vertical. 

#52A3 à #52B4 : saisie des 
caractères au clavier. 

#52B5 à #52C5 : retour en 
début de ligne suivante. 

# 52C6 à # 52EF : efface. 

# 52FO à # 52FC : efface la 
colonne Dépôt ou Retrait. 

# 5300 à # 536F : texte de l'en¬ 
tête de la feuille et autres 
tableaux. 

#5370 à #55FD : saisie des 
nombres des colonnes Dépôt et 
Retrait et calcul du Solde. 

# 5600 à # 5642 : scrolling ver¬ 
tical. 

#5700 à # 570E : détourne la 
saisie de caractère. 

#5760 à #57C2 : modification 
des pointeurs et des routines 
pour la fonction Vérification. 

# 57C3 à # 57C7 : message 
"OK:". 

# 57C8 à # 57E3 : routine modi¬ 
fiant les octets OOEF à 00F1 per¬ 
mettant l'utlisation de nouvelles 
fonctions (après le caractère &) : 


2415 

2417 

2420 

2425 

2426 
2430 
2440 
2450 
2455 

2457 

2458 
2460 
2465 
2470 
2500 
2510 
2520 
2530 
2540 
2570 
2590 
2600 
2605 
2610 
2660 
2670 
2680 
2700 
2710 
2715 
2720 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
3000 
3010 
3090 

3100 

3101 
3110 
3120 
3130 
3140 
3150 
3160 


PRI\ T :Pfi:VT 

FCHi= * ‘ ThEMM=C 0* : RETURM 
!FLEN(CH*)>L7HENFI>i5:9RINT l Tr30 lonç ":S0T024!0 
CH$=* •♦Ch**’ ' 

CH$=RI6HT$(CHJ,L+1) 

RETURN 

GETKi:PRINTKS; 

IFKS=CHR$( i 3 ) THENPE t L’RN 
IFK$OCHW( 127)THER?460 

IFLENiCHt*>0TÆNCHt=LEFT*-CHt,LEN‘(CH*)-1 )ELSE 3 RINT’ ’ : 

G0T02440 

CHt=CH*+Kî 

G0T0244G 

RETURN 

1 

0.5:&A 

ANî-"♦*****♦**♦ ECRITURE ANNULi.EE +♦*♦♦♦*******♦*****+« 
A*=AN*+DEi+R£i+50t** * 

G0SUB2360 

T$-V*+‘.*:Tt=lEF T t. Tt,S):l=10:GOSUB27Q0 

T$=RE*:I=51:G0SUB2700 
T i=DE* : I =60 : GOSUB270O 
GOSUB1200 

&FA$ 

1 WRITEZ’A*:P0KE426A,#22 
G0SUB1105 
RETURN 
F0RJMT06 

P0KE((t570E;+I+J),ASC(f1ID$(T$.J,l)) 

NEXT 
RETURN 

Dt=MIDî(Aî.2,9) 

C$=MIDi(A$,11,9) 

B*=f1I»(A$,20,!6> 

0<=H!D*<A»,36,16) 

DE«=MIDtiAî,52.9) 

REi=«IDf<A$,61,9) 

S0$=HID$(Ai.70,î0» 

CLS 

PRINT'LiQpe N’ *:V:PRIN':rRlNT 


© 



• :Pi: c R;NT 
*:C«:PFUr 

•jO*:PPl»iT 

•;PEî:?s;nT 
*:SÜ*:PRÎN':PR1\T 


PRINT'Date 
PRINT'Ctteoue 
PRINT'Beneficiaire 
PRINT’Objet 
PRINT'Decrat 
PRINT’Retrait 
PRINT’Solde 
RETURN 
1 LISTING 
GOSUB320C 

LPRINTCHRil18):LPP1NT‘3‘:L B RINT*C1‘:LPRIN T, A* 

PRINT:PRINT*C’est paru ....Vous pouvez fi'arreter e - i ^'aocant ms ': 

PRINT 1 touche’:POKER2DF.0 

REPEAT 

1 T AhE Z’At:P0hE#26A,#22 
&DA* 

LPR!NTPF:LPRINTAî 

PF=PF+1 

UNTILPF=P0RPEEK(«2DFK>0 
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3180 

3200 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4095 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4200 

4205 

4210 

4213 

4215 

4220 

4230 

4240 

4260 

4340 

4345 

4350 

4360 

4380 

4382 

4384 

4386 

4390 

4400 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 


RETURN 


î REWINDZ î!WHEREZ:P=PEEK(#48F) 

CLS 

PRINT*A partir de quelle ligne I 1 a*;P-l;*)*:PRINT 
INPUTPP 

IFPF>=PORPF<=OTHEN3230 
IFPF=1THENRETURN 
!JUMPZ,PF-1:P0KEH26A,#22 
RETURN 

1 REWINDZ: 1 WHEREZ:P=PEEK(#4BF) 

!TAKEZ'A* 

PF=VAL(MID*<A«,15,4)):ST=PF 
'JUMPZ,PF-2 
D0KE#6007,#70F0 
REPEAT 
!TAKEZ’A$ 

IFMID$(A$,60,1)=CH R$(127)THEN4140 
V=PF:60SUB2800 

PRINT*Si cette operation est portée sur votre releve, frappez DEL, sinon ‘ 

PRINT’une autre touche* 

GETWt 

IFU«>CHR*(127)THEN4140 

A$=LEFT$(AS.59 >+CHR*<127l+RIGHTS(AS,20) 

!REWINDZ: 1 JUMPZ,PF-1: 1 WRITEZ’A* 

PF=PF+1 

UNTILPF=P 

CLS:PRINT310,12;* CONTROLE EN COURS* 

&A:PF=ST 

&G 

1 REWINDZ: !JUMPZ.PF-2:DR=0 
!TAKEZ’AS:D0KEI6007,#70F0 
&DAS 
REPEAT 

!TAKEZ’AS :P0KE#26A,122 

IFMIDS(AS,60,1)< > CHRS(127)THENDR=1 :G0 T O4340 

&HA* 

IFDR=OTHENST=PF 

PF=PF+1 

UNTILPF=P 

ZAP 

&I 

!REWINDZ;* TAKEZ’At 

AS=LEFTSiA»,10)+RIGHT*(* * +STRÎ(ST).8)+R1GHTS<Ai,62) 

1 REWINDZ: 1 WRITEZ’Ai:P0KEI26A.#22 
GETWi : IFUSOCHRSI 27 ) THEN4390 
RETURN 


GOSUB3200 
REPEAT 

&A:P0=1:D0KE#6D07,#70F0 
G0SUB1255 
GETWi 

IFWi=CHRii17) THEN&C : G0T05060 
IFWi=CHRî (01)THE\«I:G0TO5060 
UNT 11PF=PORWS=CHRS < 27) 

RETURN ■ 



cf. THEORIC n° 10 pages 31 à 
35). 

# 57EA à # 57F7 : si caractère & 
est frappé. 

# 57F8 à #5815: arrêt et affiche 
OK:. 

#5816 à # 58F1 : différentes 
fonctions de &. 


VARIABLES 

# 6000 à # 6001 : pointeur début 
feuille. 

#6002 à # 6003 : pointeur début 
écran. 

#6004 : compteur. 

# 6005 : longueur. 

# 6007 à # 6008 : pointeur ligne. 
#600B : pointeur colonne (paire 
80). 

#600D : caractère saisie. 
#600E : pointeur de colonne 
(paire 7). 

# 6010 à # 6016 : utilisées par le 
calcul. 

PARTIE BASIC 

Seules les fonctions & méritent 
quelques explications, le reste ne 
présente aucune originalité. 

&A : appelle la routine en # 5000. 
&B : appelle la routine en # 5044. 
&C : affiche la partie gauche de 
la feuille. 

& DA$ : transporte le contenu de 
A$ sur une ligne de la feuille. 
&EA$ : transporte une ligne de la 
feuille dans A$. 

&FA$ : affiche la compensation 
d'annulation et place cette ligne 
dans A$. 

&G : évite l'affichage pendant le 
contrôle. 

&HA$ : met le contenu de A$ sur 
la ligne pointée par # 6007 et fait 
le calcul. 

&l : affiche la partie D de la 
feuille. 

En espérant que ce compromis 
entre rapidité, facilité d'emploi et 
performance vous satisfaira et 
vous .rendra service. 

NOTE : Pour adapter ce pro¬ 
gramme à ORIC-1, il faut savoir 
que la routine GTORKB est appe¬ 
lée par SSR #EB78 à l'adresse 

# 52A9. 

Pour l'adaptation de la routine 

# 57C8, voir THEORIC N° 10. 
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L 'ouvrage que nous avons annoncé depuis si longtemps, "L'ORIC A NU" de Fabrice 
BROCHE, va enfin être disponible. Il faut dire que l'auteur a fait le nécessaire pour pro¬ 
poser à ses lecteurs une documentation des plus consistantes sur l'ORIC. Jugez vous- 
même : les ROM ORIC-1 et ATMOS y sont désassemblées et abondamment commentées 
en parallèle. 

De plus, les routines essentielles de l'ORIC sont détaillées, ce qui devrait permettre au pro¬ 
grammeur de pousser la machine dans ses derniers retranchements, en l'exploitant au 
maximum. 

Pour vous donner un exemple de ce que vous trouverez dans ce livre, voici la présentation 
des Entrées/Sorties cassette. 

Ce livre, édité par SORACOM, sera proposé aux abonnés de THEORIC à un prix préférentiel 
défiant toute concurrence ! 

LA FIABILITE 

Le magnétocassette est la mémoire de masse privilégiée des micro-ordinateurs, de par, évidemment, son 
faible coût. 

Malheureusement, ce support souffre de deux défauts, plus ou moins importants selon l'utilisation que 
l'on fait de son ordinateur, à savoir la lenteur et la fiabilité. 

Le .résultat est d'autant plus fiable que la sauvegarde est lente, c'est pourquoi l'ORIC offre deux vitesses 
de sauvegarde : 300 ou 2400 bauds (bit par seconde). Ces vitesses sont en fait des moyennes, ainsi 
que nous le verrons plus loin. 

Une mauvaise fiabilité est due à plusieurs causes : 

Le support 

La bande magnétique peut présenter des "Drop out” (irrégularité du revêtement). A ce sujet, il faut noter 
qu'il ne sert à rien de ralentir la vitesse, car on augmente ainsi la longueur de l'enregistrement, et par 
là même la probabilité de rencontrer des "Drops out”. 

Une bande a aussi des limites physiques, qui leur interdisent la restitution des fréquences trop élevées. 
Cette limitation en fréquence ne joue pas pour les fréquences mises en jeu, du moins au niveau de la bande. 
Les cassettes dites "informatiques" sont en fait des cassettes sélectionnées pour leur absence quasi 
totale de drop out. 

L'enregistreur 

Les magnétos généralement utilisés ont une bande passante très limitée (200 à 5000 Hz environ), ce 
qui peut nuire à un enregistrement à 2400 bauds). 

Leur azimutage (angle entre la tête de lecture/écriture et la bande) varie souvent avec le temps (déré¬ 
glage), et presque à coup sûr d'un magnétophone à l'autre, ce qui se traduit par une réduction très nota¬ 
ble de la bande passante. 

Si l'enregistreur règle le niveau trop bas, le souffle inhérent à toute bande magnétique peut aussi interfé¬ 
rer avec le signal. 

L'ORIC 

Il y a enfin le format utilisé, et l'éventuelle procédure de correction des erreurs. Nous verrons que sur 
ce point, ORIC n'a pas fait le bon choix... 

FORMAT D'UN OCTET 
Format d'un bit, mode Fast 

C'est ici que le format utilisé pêche par son manque d'optimisation ; on enregistre à 2400 bauds avec 
une fiabilité qui devrait être celle d'un enregistrement à 4800 bauds... 

L'écriture est faite par des impulsions successives, dont l'intervalle permet de déterminer la nature du 
bit reçu. 
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L'intervalle de 208 microsecondes sera noté T. 

Avant chaque donnée, une impulsion de longueur T est envoyée, le bit suivant ensuite, caractérisée par 
une impulsion de T pour un 1, ou de 2T pour un 0 (n'oublions pas que chaque impulsion inverse le niveau 
sur PB7). 

Ce qui donne le chronogramme suivant, pour l'émission de 011 par exemple. 



Les flèches représentent les fronts détectés par CB1. 



2T 3T 4T 5T 6T 7T 8T 9T 10T 




Quelques remarques s'imposent 

Il faut 2T pour écrire un 1, et 3T pour écrire un 0. La fréquence oscille donc entre 1600 et 2400 Hz, 
tout comme le taux de baud réel. 

On peut calculer la vitesse réelle en mode fast, si on considère un octet "moyen" composé de 4x0 
et 4x1, ce qui donne, avec stop, start et parité : 8x1 5x0. Le taux de baud est donc : 
1 /(2T* 8/13 + 3T« 5/13) = 2000 bauds environ, soit 1 54 octets par seconde ou 1 ko toutes les 6,5 secondes 
environ. 

On perd T à chaque bit, ce qui ne sert pas à grand chose, sinon à ajuster les fronts (CB1 est configurée 
pour détecter les fronts montants). Le chronogramme suivant, doublerait, ou presque, la vitesse de transfert, 
sans altérer la fiabilité. Cela entraînerait une complication puisque CB1 devrait détecter tour à tour une 
transition positive et une transition négative. 



Format d'un bit en mode SLOW 

Cette fois, un 1 et un 0 auront globalement la même longueur : 16 créneaux de longueur T pour un 1 
ou 8 créneaux de longueur 2T pour un 0. 

Un bit nécessite donc dans tous les cas 1 6T, soit 3328 microsecondes, ce qui donne 300,5 bauds 
exactement. 

La vitesse de transfert réelle est de 23 caractères par seconde, ou encore un kilo-octet toutes les 
45 secondes. 

Le chronogramme est le suivant, pour la séquence de bit 01 par exemple. 



m—r~ 


2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 


tCO 


Le surcroît de fiabilité est en fait apporté par la lecture (voir routines de lecture). 
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Format d'un octet 

Le format est classique et ressemble à celui utilisé dans toutes les transmissions en série. 

Il se compose d'un bit de START, suivi de 8 bits de l'octet, d'un bit de parité inverse, et de 3 bits de 
stop, ce qui donne : 

ST bO bl b2 b3 b4 b5 b6 b7 P SP SP SP 
Ou encore, pour l'octet #AA, par exemple : 

0010101011111 

Il faut donc en tout 13 bits pour un octet. 

Il faut considérer que l'octet fait 9 bits, le neuvième, bit de parité inverse, servant de contrôle. Il est tel 
que le nonuplet contienne toujours un nombre impair de 1. Si une parité paire avait été choisie, le nonu- 
plet aurait dû avoir un nombre de 1 pair. 

La parité sert à la lecture pour détecter d'éventuelles erreurs. 

Les bits de stop, au nombre de 3 ici, servent à permettre à l'unité centrale de traiter l'octet reçu ou à 
émettre. 

Le bit de start, qui est obligatoirement inverse du bit de stop, sert à détecter le début d'une nouvelle 
donnée. 

Voici le schéma théorique pour l'émission de deux octets, # 60 et #13 par exemple (attention ! les bits 
sont représentés par des niveaux logiques, alors que pour l'ORIC ils sont représentés par des fréquences 
différentes, voir format d'un bit). 



FORMAT D'UN PROGRAMME 

De même que la structure d'un bit ou d'un octet, il a fallu normaliser la manière de sauvegarder un 
programme. 

Le format est classique : amorce (synchronisation), en-tête (informations sur le programme), données 
(programme proprement dit). 

La bande amorce permet de synchroniser, opération qui ne se fait pas nécessairement du premier coup. 
Pour marquer le début de l'en-tête (9 octets), un octet #24 est écrit. 

L'en-tête contient toutes les informations nécessaires sur le programme, ainsi qu'elles sont décrites ci- 
dessous. 

Suit ensuite le nom, terminé par un 0. Si le nom n'est pas précisé, il est réduit au 0. 

Le programme est ensuite stocké tel quel, sa longueur étant déterminée par l'en-tête, il n'a pas besoin 
d'indicateur de fin. 

Notons AM l'octet utilisé pour la bande amorce (# 16), I l'identificateur d'en-tête, EO à E8 les octets 
de l'en-tête, Nx les caractère du nom et DX les données. Le programme a le format suivant : 

259 x AM I EO El E2 E3 E4 E5 E6 E7 E8 (NO... Nx) 00 DO DI... 

AM= # 16 
1= #24 

EO = inutilisé 
E1-E3 = adresse de début 
E3-E4 = adresse de fin 

E5 =#00 = Basic, #80 = bloc, #40 = tableau 
E6 = drapeau AUTO oui: <>0 
E7 = drapeau chaîne 

E8 =drapeau entier (uniquement pour VI .1STORE/RECALL) 

E9 =drapeau FAST oui: <>0 
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Format d'un tableau 

Le format d'un tableau diffère peu de celui d'un programme, sinon que les données sont stockées 
différemment. 

Etant donnée la structure d'un tableau, il est nécessaire de distinguer les tableaux de chaînes et les autres. 
TABLEAUX REELS OU ENTIERS 

Ils tiennent en un seul bloc, dans la zone des tableaux. Dans ce cas, El -E2 contient l'adresse du tableau 
et E3-E4 la fin du tableau. 

Mais il se peut très bien que, lors du chargement, le tableau ne soit pas à la même adresse dans la zone 
des tableaux. Le RECALL force le tableau à se charger à la nouvelle adresse, E1-E2 et E3-E4 ne servant 
en fait qu’à déterminer la longueur du tableau. 

TABLEAU DE CHAINES 

Ils sont en deux parties ; la zone des descripteurs, qui est traitée comme pour les tableaux numériques 
(y compris relocation au chargement), et les chaînes elles-mêmes, qui sont stockées en haut de la mémoire. 
Il n'est pas question, cette fois, de sauver un bloc mémoire, puisque les chaînes se trouvent n'importe 
où, y compris parfois dans le Basic lui-même. 

Le STORE va donc décrire les descripteurs un à un, et sauver les chaînes les unes après les autres, sans 
séparateur. 

Le RECALL, après avoir chargé les descripteurs, comme pour un tableau numérique, va les parcourir, 
réserver la place pour les chaînes, et enfin charger les chaînes. 

Quant à la partie "listings" de l'ouvrage, voici comment se présentent les désassemblages commentés 
des deux ROM. 


SOUS-ROUTINE CLOAD 


E4AS JSR $E563 . effacer la ligne de status 

E4AB LDA 833 . 

E4AD' LDY IE5 . indexer ’Searching 

E4AF JSR ÎE576 . et l’afficher 


PRENDRE EN-TETE DU PROGRAMME 


REMARQUE : La routine est morcelée pour la VI.1. 

Deux versions circulent pour la V 1.1 ; la version présentée est la version définitive. La première version 
ne comportait pas de STX #2B1 et des erreurs pendant la bande amorce donnaient donc le message 
"errors found". 

La place du STX # 2B1 a été gagnée par une simple optimisation, de sorte que les deux VI. 1 ne diffèrent 
que dans la zone #E4B6-#E4D1. 


E452 

JSR 

$E696 

E4AC 

JSR 

$E735 

E4E5 

JSR 

ÎE630 

E4AF 

JSR 

SE6C9 

E4E8 

CHP 

<24 

E4B2 

CK? 

«24 

E4EA 

BtlE 

E4B5 

E4B4 

EUE 

E4AF 




E4B6 

STX 

02B1 

E4BC 

LDX 

109 

E4B9 

LDX 

109 

E4SE 

JSR 

ÎE630 

E4BB 

JSR 

IE6C9 

E4C1 

STA 

59,X 

E4BE 

STA 

02A7,X 

E4C3 

EEX 


E4C1 

EEX 


E4C4 

ErlE 

E4BE 

E4C2 

ENE 

E4BB 

E4C6 

JSR 

SEÉ30 

E4C4 

JSR 

SE6C9 

E4C9 

EE8 

E4E0 

E4C7 

EES 

E4D3 




E4C9 

CPX 

110 




E4CE 

ECS 

E4C4 

E4CB 

STA 

49,X 

E4CD 

STA 

0293,X 

E4CD 

INX 


E4C3 

IriX 


E4CE 

EUE 

E4C6 

E411 

ENE 

E4C4 

E4EU 

STA 

49,X 

E493 

STA 

0293.X 




E4E6 

JSR 

ÎE594 


attendre la bande aiorce 
prendre un octet 

est-ce 124 ? (indique le début de bloc) 
non,attendre 

reiettre à 0 indicateur d’erreur 
l’entète fait 9 octets 
prendre un octet 
et sauver 1 ’entête en sèioire 


preiier caractère du no» 

fin du noi: on saute 

a-t-on déjà 16 caractères pour le noi ? 

oui,, on charge tais on ne recopie pas 

sauver le noi 

indexer caractère suivant 

inconditionnel: continuer 

sauver aussi le teriinateur (4301 

afficher 'Found 
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E4D2 JSR îEéF3 E4E9 JSR $E7?3 tester si le ncs correspond à celui desar.dé 

E4D5 TXA E4DC TXA 

E1D6 BSE E4A8 E4DD Î!1E E4AC non, on recooience 

. E4DF RTS 

E4DS JSR SE563 . effacer ligne 0 

EADS LEA 112 . 

E4ED LDY tE5 . indexer 'Loading 

E4DF JSR ÎE576 . et afficher 

E*E2 JSR *îf‘E . afficher nos du prograose deoandé 


NOUVELLES 


PLAT FOUR 



ORC 

24 LIGNES SUR 
80 COLONNES EN 
CRISTAUX LIQUIDES 

A l'heure où nous allions remet¬ 
tre la maquette de THEORIC à 
l'imprimeur, la bombe est arrivée, 
sous forme d'un paquet bien 
ficelé, sur le bureau du rédacteur 


nous n'avions pas été prévenus 
auparavant de l'existence de ce 
produit auquel nous ne pensions 
même pas : un écran plat, à cris¬ 
taux liquides, permettant d'affi¬ 
cher 24 lignes de 80 caractères. 
Notre souci de vous informer 
rapidement, sans attendre le 
THEORIC de mai, fait que nous 
ne vous présenterons pas de 
photo de la petite merveille. 


Le produit, fabriqué par SOLE 
(Société d'Ordinateurs et Logi¬ 
ciels de l'Essonne) se connecte 
sur le bus d'extension de l'ORIC 
par l'intermédiaire d'une limande 
(câble plat multiconducteurs). 
Peu gourmand en énergie, il pré¬ 
lève directement son alimentation 
sur l'ORIC. A la mise sous ten¬ 
sion, l'écran devient bleu marine 
et le message d'initialisation de 
l'ORIC est complété du copyright 
SOLE. Les éléments "cristaux" 
sont de couleur sombre, petits 
segments ressemblant à des arê¬ 
tes vives. Sur le prototype que 
nous avons reçu, cet écran 
n'était pas parfait : en fonction 
"Test" (qui commande l'activa¬ 
tion de tous les segments), des 
sortes de petites bulles apparais¬ 
saient en haut de l'écran (peut- 
être malmenés lors du trans¬ 
port ?). 

Un logiciel est livré, sur cassette, 
permettant de gérer les 80 colon¬ 
nes. Annonçant un mode graphi¬ 
que 640 x 192 en 8 niveaux de 
gris, la notice reste néanmoins 
muette comme une carpe en ce 
qui concerne l'utilisation. 
Gardons-nous de porter un juge¬ 
ment : c'est une notice très pro¬ 
visoire. 

La couleur du produit, rose sau¬ 
mon, est assez contestable : 
pourquoi ne pas avoir choisi le 
noir de l'ATMOS ou du TELE- 
STRAT (la compatibilité serait 
assurée.... dixit le communiqué 
de presse d'accompagnement). 
Ne croyez pas que nous cher¬ 
chions à vous tenir en baleine 
jusqu'au prochain numéro, 
n'ayant pu avoir SOLE en ligne, 
nous manquons, pour le moment, 
de précisions. 

Quant au prix, la note doit être 
salée, penseront certains.... Non, 
il coûtera moins de 700 F. 

La suite dans le prochain THEO¬ 
RIC, si tout va bien ! 


en chef. Il est à souligner que 


Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct avec la rédaction. Ceci est un ser¬ 
vice sans égal I Respectez simplement les horaires et les 
jours que nous vous indiquons 
MERCREDI de 9 h à 12 h et de 14 h'à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent I 

Le numéro : 99 * 52 » 98 » II* 
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Z es utilitaires publiés dans cette série vous ont vivement inté¬ 
ressés. Le titre de ces articles avait donc été bien choisi. 
Initialement, il y avait trois parties, mais la construction 
modulaire de ce programme était prévue pour faciliter son 
développement. Ainsi, voici une quatrième partie et deux options 
supplémentaires. 


La première est l'équivalent de la 
fonction SEARCH (Cherche) de 
certains Basic. Elle permet de 
trouver directement une ligne 
contenant une séquence Basic 
ou une chaîne de caractères don¬ 
née. La syntaxe est ici : &F 
/BASIC/. 

Le "F" est ici mis pour FIND 
(Trouve) car le ''S'' qui aurait été 
plus logique avait déjà été 
employé par UTIL2 (&S = Save 
Fûtes). 

Les délimiteurs, ici des sont 
absolument quelconques. Il peu¬ 
vent être n'importe quel carac¬ 
tère ASCII autre que les guille¬ 
mets (") et, sur ORIC-1, les 
apostrophes ('). En effet, l'inter¬ 
préteur Basic ne traduit pas les 
mots-clés qui pourraient se trou¬ 
ver entre ces caractères car il 
s'agit pour lui, et pour nous, 
d'une chaîne de caractères. 
Ainsi : &F /A = / nous donnera 
toutes les lignes dans lesquelles 
on pourra trouver le code ASCII 
de A (65) suivi du code du mot- 
clé " = '' qui est (212). 

Par contre : &F "A = " fera de 


même avec les codes 65 (A) et 
61 ( = ). Cela ne pourra se trou¬ 
ver qu'entre deux guillemets 
(" ") ou à la suite d'une REM ou 
d'un DATA. 

REMARQUE : Il existe une légère 
différence entre les interpréteurs 
de l'ORIC-1 et de l'ATMOS. Le 
premier ne recherche pas les 
mots-clés après les (') alors que 
le second le fait. Donc, si l'on 
demande &F 'A = ', l'ORIC-1 
cherchera une chaîne contenant 
CHR$(65) + CHR$(61 ) alors que 
l'ATMOS qui aura trouvé le mot- 
clé " = ", cherchera CHR$(65) + 
CODE(21 2). Il peut être utile de 
le savoir (en particulier pour ceux 
qui disposent des deux ROM). 
Voyons un peu le fonctionne¬ 
ment de cette commande : elle 
est expliquée dans le listing 
assembleur ci-joint à partir de 
l'adresse # 9871. Après un appel 
de #CA51 (#CA1F si ORIC-1), 
on a en ( # CE) l'adresse de stoc¬ 
kage de la séquence à rechercher 
et en Y sa longueur. 

A l'aide du pointeur (00), on par¬ 
court tout le programme Basic 


ligne par ligne en comparant à 
chaque fois jusqu'à Y octets 
avec la séquence de référence. 
Ces tests sont effectués de 
#9307 à #93D9. Il faut savoir 
que pour un petit programme 
d'une trentaine de lignes, on 
arrive rapidement à plus d'un mil¬ 
lier de tests ! Heureusement, ils 
sont faits en langage machine et 
ne demandent alors pas plus de 
1/10 seconde. 

Lorsque l'on trouve, dans une 
ligne, la séquence demandée, on 
utilise la routine EDIT de la ROM 
pour afficher à l'écran la ligne 
concernée. Le programme attend 
alors de savoir ce que vous vou¬ 
lez faire. Ou bien ce n'est pas la 
ligne que vous recherchez (vous 
frappez alors < espace > et la 
routine reprend ses recherches), 
ou bien c'est la bonne et elle 
vous rend la main après que vous 
ayez frappé <return>. 

Si elle n'a pas trouvé ce qu'on lui 
demandait, ou si vous avez 
frappé < espace > sur la dernière 
ligne qui le contenait, elle vous 
rend la main avec un "Ready" ou 
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un "OK" (suivant ce que vous 
aviez choisi lors de "UTIL1"). 
Vous trouverez rapidement l'uti¬ 
lité d'une telle commande. Par 
exemple, rechercher le numéro 
de la ligne sur laquelle vous vou¬ 
lez faire un branchement par 
GOTO lorsque vous en connais¬ 
sez le contenu ou encore, chan¬ 
ger le nom d'une variable dans 
tout le programme en affichant 
toutes les lignes où elle est pré¬ 
sente, etc. 

La seconde option présentée ici 
n'est pas une commande du 
Basic ''standard''. Elle s'avère 
néanmoins très pratique et 
agréable d'emploi. Il s'agit d'un 
&GOSUB pemettant d'appeler 
les sous-programmes directe¬ 
ment par leur nom et non plus 
par un numéro de ligne. Cela 
rend les programmes beaucoup 
plus "parlants" et fait ressortir 
encore plus clairement ceux qui 
sont bien structurés. Cela évite 
alors une utilisation abusive des 
REM pour expliquer ces appels 
aux sous-programmes. 

La syntaxe est encore ici très 
simple et se résume à deux cas : 
&GOSUB "ABC" 
ou 

&GOSUB V$ avec V$2 = "ABC" 
Le second cas rend l'utilisation 
de cette commande très souple. 
En effet, il vous est possible de 
rentrer vos ordres au clavier : 
vous rentrez le nom du sous- 
programme et il va s'exécuter. Il 
vous est possible de définir ainsi 
un "petit langage simple", tel 
que les bases d'un LOGO par 
exemple, où il vous suffira de 
mettre vos ordres en DATA et de 
les exécuter dans une boucle 
contenant une instruction du 
type : READ SP$ :&GOSUB SP$. 
(cf. le programme "Mini-LOGO" 
donné en exemple). 

Ce &GOSUB a de plus un 
énorme avantage sur le GOSUB 
classique. En effet, s'il ne trouve 
pas le sous-programme demandé, 
il ne "sort pas" sur une 
"Undef'd statement Error" mais 
continue à se dérouler comme 
s'il n'y avait pas eu d'appel à 
sous-programme. C'est le cas 
dans le petit programme de 
démonstration où, à la ligne 362, 
on appelle successivement "A", 


"AB" et "ABC" alors que la pro¬ 
cédure "AB" n'est pas définie. 
En ce qui concerne la définition 
de la procédure, on a choisi ici le 
mot-clé "REM", mais il est pos 
sible d'y mettre tout autre code 
que vous aurez choisi (par exem¬ 
ple DEF). Cela peut être un 
caractère simple ou un mot-clé 
du Basic. 

Si on a pris REM, c'est qu'il y a 
quand même un avantage. En 
effet, si on a la ligne : 100 REM 
"ss-prg 1", on aura alors 
compatiblité entre : &GOSUB 
"ss-prg 1" et GOSUB 100. L’in¬ 
convénient de REM est qu'on ne 
peut bien sûr pas faire suivre le 
nom de la procédure par des 
ordres Basic alors que cela est 
possible autrement. Par contre, 
si vous mettez un autre code que 
REM (ou '), vous aurez de très 
fortes chances de "tomber" sur 
une "Syntax Error". Si vous vou¬ 
lez quand même changer ce 
symbole de reconnaissance, fai¬ 
tes : POKE # 9336, code puis 
changez les "REM" par le(s) 
nouveau(x) caractère(s). 
(Utilisez pour cela : &F /REM "/). 
Il faut enfin savoir qu'appeler un 
sous-programme par son nom 
n'influence que très peu la 
vitesse d'exécution. Ainsi, dans 
le programme "LOGO” ci-joint, 
&GOSUB "AVANCE", prend 
environ 1/100 seconde, c'est-à- 
dire le même temps qu'un 
GOSUB 222. Par contre, il faut 
presque 3 centièmes pour 
&GOSUB "HEXA" contre deux 
pour un GOSUB 524. La diffé¬ 
rence de temps ne justifie donc 
absolument pas de ne pas utiliser 
ce "&GOSUB" ! 

Un petit détail encore : pour plus 
de sécurité, n'oubliez pas de faire 
HIMEM # 9300 avant de charger 
"UTIL4.LM" ou alors faites un 
CLEAR aussitôt après son char¬ 
gement. Cela évitera les problè¬ 
mes qui pourraient autrement 
apparaître en raison du stockage 
des chaînes de caractères dans la 
page #97. 

Un dernier détail : sur les listings 
présentés ci-après, le $ est repré¬ 
senté X (comme deux parenthè¬ 
ses imbriquées) : nevousmépre- 
nez pas... c'est une fantaisie de 
l'imprimante. 


0 REH================================ 

0 REM Utilitaires pour ATMOS S ORIC-1 
0 REM 

0 REM LEGAL Thierry (c) 01/86 
0 REM 

0 REM Recherche d'une sequence Basic 
0 REM par: 5F /basic/ ou d'une chaîne 
0 REM par: SF “caractères 1 
0 REM 

0 REM 5G05UB *No» de Procedure* 

0 REM=============================== 

0 REM Entrée des Data 

0 REM- 

10 IF PEEK(#9402)=#97 THEN 20 
15 PRINT“Charriez d'abord UTIL3 “ END 
20 HIMEM 49300 : CL5 .FOR 1=0 TO 34 
25 PRINT 34-1; : AD=#9300+8*I : 5=0 
30 IF I>31 THEN AD=#94D6+8*(I-32> 

35 FOR J=0 TO 7:READ AK:A=VAL<“#“+AK) 
40 POKE AD+-J,A :5=S+A NEXT :READ 5C 
45 IF S=SC THEN NEXT : GOTO 55 
50 PPINT‘Erreur llane“103+I -ZAP :END 
55 IF F'EEK(BFFFE) =40 THEN GOSUB 200 
60 POKE #95AC,146 :POKE #9564,146 
65 POKE #9500,114 POKE #9706,146 
70 POKE H95EC,76 DOKE #95ED,#9369 
75 PING :CALL #9300 CL5 :PRINT “0k.“ 
80 PRINT “Routine UTIL4 iuplantee" 

85 PRINT’Preparez le Maoneto* :GET AK 
90 CSAVE“UTIL4.LM‘,A#93Ô0,E#97FF,AUTO 
95 : SG0SUB “Demo* :SF /IF/ 

100 REM- 

101 REM Data de la Routine * 

102 REM- 

103 : 

103 DATA 4C,88,97,20,E2,00,20,DD,#39A 

104 DATA 94,FO,38,85,02,86,03.84,#350 

105 DATA 04,A5,EA,48,A5,E9,48,A4,#455 

106 DATA 9B.A5,9(1,84,01,85,00,A4,#388 

107 DATA 01,A5,00,84,EA,85,E9,A0,H422 

108 DATA 01,61,E9.99.00,00,88,10,42CC 

109 DATA F8,A0,04,B1,E9,C9,9D,F0,#58C 

110 DATA 0B,A5,01,D0.E2,68,85,E9,#439 

111 DATA 68,85,EA,60,20,3F,CA,20,#380 

112 DATA D6,94,F0,ED,05,02,D0,E9,#507 

113 DATA A8,8B,B1,91,D1,03,D0,E1,#4F7 

114 DATA 88,10,F7,48,48,A9,96,48,#3AB 

115 DATA 4C,Cl,08,20.03,93.40,ES,S3BF 

116 DATA 00,09,96,FO,F6,09,46,D0,#529 

117 DATA F5,20,E2,00,20,E2,00,20,4319 

118 DATA 51,CA,88,84,04,F0,7E,A4,#43D 

119 : 

119 DATA 9B,A5,9A,84,01,85,00.A4,#38B 

120 DATA EA,A5,E9,84,03,85,Û2,A0,#426 

121 DATA 01,61,00,F0,68,A4,01,A5,#354 

122 DATA 00,84,0F,85,CE,A0,02,61,#3F9 

123 DATA CE,85,33,08,Bl,CE,85,34,#436 

124 DATA 18,A5,00,69,04,85,00,85,#234 
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125 DATA E?,A5.01,69,00,85.01,85,#303 

126 DATA EA.20,51.CA,98,85,05,33,«37F 

127 DATA E5,04,?0,17.AA,fl4,04,88,#36A 

128 DATA 30,lE,Bl,E9,Dl,02,F0,F7,#4fi2 

129 DATA E6,E9,D0,02,E6,EA,A4,04,#51? 

130 DATA CA, 10,EC,38,A5,OC,65,05,00 

131 DATA 85,00,90,02.E6,01,DO,A7,#375 

132 DATA 38,6E,F2,02,20,6C,C7,20,#30D 

133 DATA E8,C5,C9,20,F0,E5,C9,OD,#541 

134 DATA DÛ,F5,4C,A3,C6,4C,A8,C4,#532 

135 : 

135 DATA 20,E2,00,C9,22,DO,OA,20,H2E7 

136 DATA 17,CF,24,28,10,03,40,00,#261 

137 DATA D7,A2,00,60,00,00,4C,49,#26E 

138 : 

200 REM- 

201 REM Modifications ORIC-1 

202 REM- 

203 DOKE #9361,HC8AD-D0KE #9378,#CA1F 


204 DOKE #93BA,#CA1F:D0KE #93ED,#C799 

205 DOKE #93F0,«C5F8:D0KE #93FB,#C4C7 

206 DOKE #93FE,#C4B8:00KE #94DE,#CE8B 

207 DOKE H94E5,#D715:D0KE #9345,#CA0D 

208 RETURN 

300 REM- 

302 REM E::empie d'utilisation 

304 REM- 

306 : 

308 REM "Derno" 

310 A#=’ABC“ :PRINT :ft=360 

314 FOR 1=1 TO 3 SGOSUB MID»(A*,I,1) 

316 NEXT SGOSUB A» :G05UB A 

318 SGOSUB ‘FIN DEMO* .RETURN 

320 Retour au programme principal 

322 : 

324 REM “ABC* 

326 PRINT “Procedure ABC" 

328 ZAP :RETURN 


330 : 

332 REM “A* 

334 PRINT “Proc A“ :RETU9N 
336 : 

338 REM “B“ 

340 PRINT "Proc B" RETURN 
342 : 

344 REM "C" 

346 PRINT "Proc C" :RETURN 
348 : 

350 REM“FIN DEMO" 

352 FOR 1=1 TO 10 : PRINT “Hasard: \I, 
354 SGOSUB CHRfi(A5C(“A“) +RND(1)*3> 

356 NEXT :PRINT :RETURN 
358 : 

360 FOR 1=1 TO 3 'PRINT I; 

362 SGOSUB LEFTX(A«,I) NEXT :RETURN 
364 : 

400 REM-Bip-Bip- 


9300 

4CB897 

JhF 97B8 

Lancement et initialisation 

934E 

D0E9 

BNE 

9339 

Est-elle de la meme longueur 





9350 

AS 

TAY 


que celle que l'on recherche ? 

9303 

20E200 

J5R 00E2 

Début routine SGOSUB 

9351 

88 

DEY 


Non: passer ligne suivante. 

9306 

200094 

JSR 9400 

Identifier la variable oui suit 

9352 

B191 

LDA 

(91),Y 

Comparer les 2 chaînes octet 

9309 

F 038 

BEQ 9343 

si var reelle: retour au Basic. 

9354 

0103 

CMP 

(03),Y 

par octet sur toute leur longr. 

930B 

8502 

STA 02 

sauver la lonoueur du Non 

9356 

DOE1 

BNE 

9339 

Si un caratere différé, alors 

9300 

8403 

STX 03 

et YX=(**91)s adresse ou se 

9358 

88 

DEY 


les 2 chaines sont differentes. 

930F 

8404 

STY 04 

trouve stocke le no». 

9359 

10F7 

BPL 

9352 

et on passe liane suivante. 

9311 

A5EA 

LOA EA 


935B 

48 

PHA 


Sinon: On a trouve la bonne 

9313 

48 

PHA 

Sauver TXTPTR sur la pile. 

e 35C 

48 

PHA 


procedure. 

9314 

A5E9 

LOA E9 

(poids fort puis poids faible) 

9350 

A99B 

LDA 

#9B 

On effectue alors un 'Gosub' a 

9316 

48 

PHA 


935F 

48 

PHA 


cette adresse ... 

9317 

A49B 

LDY 9B 

Initialisation de (00-01) sur 

9360 

4CC1C8 

J MP 

ceci 

et on relance le Basic. 

9319 

A59A 

LOA 9A 

la première ligne du basic. 

9363 

200393 

JSR 

9303 


931B 

8401 

ST.Y 01 

(initialement (S9A)=*501 ) 






9310 

8500 

STA 00 


9366 

4CE800 

JMP 00E8 

Retour au Basic par 'Chraot'. 

931F 

A401 

LDY 01 

Boucle de recherche dans le prq 

— 

— 

— 

— 


9321 

A500 

LOA 00 

du caractère de reconnaissance 

9369 

C99B 

CMP #9B 

Suite des test sur '8* 

9323 

84EA 

STY EA 

des procedures (ici: ’>'). 

936B 

FOF6 

BEQ 9363 

si SGosub Recherche Procedure. 

9325 

85E9 

STA E9 

Copier (00) dans TXTPTR 

9360 

C946 

CMP #46 

est-ce un ’Find' (S+'F') ? 

9327 

A001 

LDY #01 

Mettre dans (00) l'adresse de 

936F 

00F 5 

BNE 9366 

non: Retour au Basic. 

.9329 

B1E9 

LOA (E9),Y 

la liane suivante qui se trouve 






932B 

990000 

STA 0000,Y 

sur les 2 premiers octets. 

9371 

20E200 

JSR 

ODE 2 

Passer le 'F' et le délimiteur 

932E 

88 

DEY 

du type Ad=NaNa=Deek(Ad). 

9374 

20E200 

JSR 

00E2 

pour avoir le 1er octet 'vrai'. 

932F 

10F8 

BPL 9329 


9377 

205ICA 

JSR 

CA51 

Evaluer la longueur de la Chain 

9331 

A004 

LDY #04 

Se positionner 4 octets plus 

937A 

88 

DEY 


a retrouver .. 

9333 

B1E9 

LOA (E9),Y 

loin = 1er octet Basic de liane 

937B 

8404 

STY 

04 

et la stocker dans 04 

9335 

C990 

CMP #'REM 

Est-ce un 'REM' ? 

9370 

F07E 

BEQ 

93FD 

si chaine vide: Retour Basic 

9337 

FOOB 

BEQ 9344 

Oui: Aller vérifier le no». 

937F 

A49B 

LDY 

9B 

Placer dans (00-01) l’adresse 

9339 

A501 

LDA 01 

Est-on en fin de programme ? 

9381 

A59A 

LDA 

9A 

du début du Basic (en Gai #501) 

933B 

D0E2 

BNE 931F 

Non: Passer a la liane suivante 

9383 

8401 

STY 

01 

(00) pointe sur l’adresse de la 

9330 

68 

PLA 

oui: On n’a rien trouve 

9385 

8500 

STA 

OO 

ligne suivante. 

933E 

85E9 

STA E9 

(ou pas la procedure demandée) 

9387 

A4EA 

LDY 

EA 

Recopier en (02-03) le TXTPTR 

9340 

68 

PLA 

=> on restitue TXTPTR de sur la 

9389 

A5E9 

LDA 

E9 

qui pointe ici sur la 'chaine' 

9341 

85EA 

5TA EA 

pile puis Retour au Basic. 

938B 

8403 

STY 

03 

a rechercher. 

9343 

60 

RTS 

• 

9380 

8502 

STA 

02 


9344 

203FCA 

JSR CA3F 

Txtptr=T>:tptr+Y (ici Y=4) 

— 





9347 

200694 

JSR 9406 

Identifier la variable apres')' 

938F 

A001 

LDY #01 

Lire l'octet de poids fort de 

934A 

FOEO 

BEQ 9339 

si reelle: retour boucle poale. 

9391 

B100 

LDA 

(00),Y 

l’adresse de la liane suivante 

«34C 

C502 

CMP 02 

sinon :Chaine de caractères. 

9393 

F068 

BEQ 93FD 

Si 0:fin du prg et retour Basic 
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93«5 

0401 

LDY 01 

Sinon Mettre en (CE-CF) l'adrs 

93D2 

D002 

BNE 93D6 

Sinon on effectue les decalaaes 

?3?7 

0500 

LDA 00 

du début de la ligne de Basic 

93D4 

E6EA 

INC EA 

en incrementant le TxtPtr. 

939? 

B4CF 

5TY CF 

considérée 

9306 

A404 

LDY 04 

Charger Y avec lonqueur chaîne. 

939B 

85CE 

5TA CE 


93D8 

CA 

DEX 

est-ce le dernier décalage ? 

9390 

0002 

LDY *02 

Placer ensuite en (33-34) le 

93D9 

10EC 

BPL 93C7 

Non : on continue a chercher. 

93?F 

B ICE 

LDA (CE),Y 

numéro de cette meme ligne. 

93DB 

38 

SEC 

On positionne le pointeur (00) 

93A1 

8533 

STA 33 

Cela permettra de l’afficher au 

93DC 

A500 

LDA 00 

sur le zéro de fin de liane 

93A3 

C8 

INY 

moyen de l'ordre 'Edit' si elle 

«3DE 

6505 

ADC 05 

puis on passe a la liane qui 

93A4 

B ICE 

LDA (CE),Y 

contient la seguence recherchée 

93E0 

8500 

5TA 00 

suit pour continuer les rechch. 

93A6 

8534 

STA 34 


93E2 

9002 

BCC 93E6 

Rq ici le BNE est toujours vrai 

93A8 

18 

CLC 

Placer enfin en (00) et TxtPtr 

93E4 

E601 

INC 01 

et donc <=> .JMP 

93A9 

A500 

LDA 00 

l’adrs du 1er octet de la ligne 

93E6 

DQA7 

BNE 938F 


93AB 

6904 

ADC *04 

en incrementant (00) de 4octets 

93E8 

38 

SEC 

Positionner les drapeaux de 

?3A0 

8500 

STA 00 

corresoondant a l’adresse de la 

93E9 

6EF202 

ROR 02F2 

départ et de retour pour 

9 3 AF 

85E9 

STA E9 

ligne suivante et au numéro de 

93EC 

206CC7 

JSR C76C 

afficher la liane Basic. 

93B1 

0501 

LDA 01 

la ligne etudiee. 

93EF 

20E8C5 

JSR C5E8 

Saisir une touche au clavier. 

93B3 

6?00 

ADC *00 


93F2 

C920 

CMP *20 

est-ce la touche <esp> ? 

93B5 

8501 

STA 01 


93F4 

F0E5 

BEQ 93DB 

oui: passer ligne suivante. 

93B7 

85EA 

STA EA 

Mesurer maintenant la longueur 

93F6 

C90D 

CMP *0D 

est-ce la touche (Return) ? 

93B9 

2051CA 

JSR CA51 

de cette ligne en utilisant la 

93F8 

D0F5 

BNE 93EF 

Non: Ressaisir une touche. 

93BC 

98 

TYA 

routine REM de la Rom. 

93FA 

4CB7C4 

JMP C4B7 

Rendre la main eomne pour Edit. 

93BO 

8505 

STA 05 

La stocker en (5) 

93FD 

4CA8C4 

JMP C4A8 

Retour au Basic et 'Ready'. 

03EF 

38 

5EC 

La comparer a la longueur de la 

9400 



Début de UTIL3. 

?3C0 

E504 

SBC 04 

chaine recherchée. 





93C2 

9017 

BCC 93DB 

Si elle est plus courte .passer 

94D6 

20E200 

JSR 00E2 

Routine d'identification d'une 

93C4 

AA 

TAX 

a la ligne suivante. 

94D9 

C922 

CMP *22 

variable apres SGosub ou apres 

93C5 

A404 

LDY 04 


94DB 

DOOA 

BNE 94E7 

une REM si recherche, 

— 




94DD 

2017CF 

JSR CF17 

Retour avec indicateur LM 

93C7 

88 

DEY 

Boude de recherche d’une chair. 

94E0 

2428 

BIT 28 

de zéro si reel ou entier. 

93C8 

301E 

BMI 93EB 

dans une autre avec possibilité 

94E2 

1003 

BPL 94E7 

Sinon donne l'adrs de stockage 

93CA 

B1E9 

LDA (E9),Y 

ici de X décalages successifs. 

94E4 

4CDOD7 

JMP 0700 

et la lonqueur de la chaine. 

93CC 

D102 

CMR (02),Y 


94E7 

4200 

LDX *00 

Retour alors avec N=0. 

93CE 

F0F7 

BEQ 93C7 

Si on trouve la chaine, on va 

94E? 

60 

RTS 


93D0 

E6E9 

INC E9 

afficher la liane (93E8). 




— 


0 REM-Mini LOGO 'Utilisation de SGOSUB- 

1 ON ERROR EDIT 

2 RUN 100 'Lancement du prooranme Logo. 

3 : 

4 Les ordres LOGO sont entres en DATA » les differents attributs étant 

5 Séparés les uns des autres par des virgules. 

6 On peut les rentrer a la suite» ou. comme ci-dessous, lione par liane. 

7 : 


"MINI-LOGO, A TITRE D'EXEMPLE" 


10 REM Exemple d’utilisation de ce LOGO. Leaal Thierry (c) 86 

12 ' : 

14 DATA TRACE ON 
16 : 

18 DATA VA,150.80 
20 DATA DIRECTION,-24 
22 DATA =,20.A 
24 DATA REPETE,7 
26 DATA AJOUTE,5.A 

28 DATA CARRE,A 

30 DATA TOURNE,8 

32 DATA FIN 
34 : 

36 DATA TRACE+PAUSE 
38 DATA DIRECTION.125 
40 DATA AVANCE,100 
42 DATA CERCLE,20 
44 DATA CERCLE,30 
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46 : 

48 DATA TRACE OFF 
50 DATA VA,60,44. HEXA.25 
52 DATA VA,55,35, HEXA.35 
54 : 

56 DATA TRACE ON 
58 DATA VA,20,0 
60 DATA CARRE,199 
62 : 

99 DATA STOP 

100 REM-- 

105 H 1RES :DAT=0 :TR=2 :AS="“ :XS=*" :DAT=0 PEN=1 :CX=1 :EGB=CHRS<HD4) 

110 DIM RE(9,1),DE(9) : DEF FNF(A'=INT(A+,5) 

115 REF'EAT :READ AS :IF TRACE THEN PRINT AS; 'Lecture et execution des ordres 
120 SGOSUB AS : IF TF:ACE=2 THEN GET RS 

125 UNTIL AS=“STOP" : GET AS :IF AS=V THEN END ELSE TEXT LIST 

200 REM- 

202 REM “LECT DAT" 

204 READ AS :XK= , DAT*+EG**A* :IF TR THEN PRINT,AS 
206 : 

208 REM “EXEC XS* 

210 XS=XS+”’‘ :LG=LEN<XS) : IF L)9 THEN RFTURN 

212 P=DEFK(DEEK(DEEK(HAC)+1))+3 'Adresse du 1er octet de la ligne 216, 

214 FOR 1=1 TO LG POKE T+P,ASC(M!2S(XS,J)) NEXT 

216 DAT=A’9';;Ligne modifiée par les 2 liones precedentes. 

218 RETIJRN 
220 : 

222 REM "AVANCE" 

224 SGOSUB ‘LECT DAT" DRAW FHF(CX*DAT),FNF(CV*DAT),PEN RETURN 
226 : 

228 REM "DIRECTION" 

230 READ AN :AR-AN*PI/180 :IF TR THEN PRINT AN 

232 CX=COS(ART ;CY=SIN(AR) RETURN 
234 : 

236 REM "TOURNE* 

233 READ DAT ;AN=AN+DAT :IF TR THEN PR1NT.DAT 
240 IF ABS(AN)>360 THEN AN=AN-SGN(AN)»360 

242 AR=AN*PI/180 CX=COS(AR) CY=SIN(AR) RETURN 
244 : 

246 REM "CERCLE* 

248 READ DAT PRINT DAT CIRCLE DAT,PEN :RETURN 
•250 : 

252 REM "VA" 

254 READ RX.RY ; IF TRACE THEN PRINT RX.RY 
256 CURSET RX,RY,F'E‘I RETURN 
258 : 

260 REM 'AVANCE EN* 

262 READ RX.RY IF TRACE THEN PRINT RX.RY 
264 DRAW RX-F'EEK (S219),RY-F'EEK(tt21ft), PEN RETURN 
266 : 

268 REM "=* 

270 READ AS,BS :IF TR THEN PRINT, BS"=*AS 
272 XS=BS+EGS+AS :SGOSUB "EXEC XS" :RETURN 
274 : 

276 REM “AJOUTE* 

278 READ AS,BS : IF TR THEN PRINT, BS"=*BS“+*AS 

280 XS=BS+EGS+AS+CHRS(tîCC)+BS : SGOSUB *ÉXEC XS" ; RETURN 

282 : 



+ 10 % de port. 


Nom 

Prénom 

Adresse 


Ci joint, un chèque de F à l'ordre des 

Editions SORACOM. La Haie de Pan. 351 70 
BRUZ 
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284 REM "FEN UP* 

286 PRINT :PEN=3 :RETURN 
288 : 

290 REM "FEN DOWN* 

292 PRINT :PEN=1 RETURN 
294 : 

296 REM "TRACE OFF‘ 

298 PRINT :TR=0 :RETURN 
300 : 

302 REM -TRACE ON' 

304 PRINT :TR=1 :RETURN 
306 : 

308 REM -TRACE+PAU5E* 

310 PRINT :TR=2 :RETURN 
312 : 

400 REM Voca pour effectuer des boucles et définir de nouveaux »ots Loao. 

402 REM ‘REPETE 1 

404 READ DAT :IF TR THEN PRINT DAT 

406 RE=RE+1 :RE(RE,1)-DA RE(RE,0)=DEEK(W0) RETURN 

408 : 

410 REM -FIN 0 

412 DA=RE(RE,1) IF TR THEN PRINT DAT 
414 IF DA=1 THEN RE=RE-1 RETURN 
416 RE(RE,1)=DA-1 DORE NB0,RE(RE,0) RETURN 
418 : 

420 REM -DEBUTDEF‘ 

422 IF TRACE THEN PRINT ■ - ■; 

424 TO=TR TR=0 RETURN 
426 : 

428 REM "FINDEF- 

430 TR=TO ; IF TRACE THEN PRINT AS 
432 DOKE HBO,DE(DE) :DE=DE-1 :RETURN 
434 : 

500 REM Exemple de définition de 2 nouveaux mots: "Carre" et ’Hexa". 

502 REM -CARRE* 

504 SGOSUB -LECT DAT 1 DE=DE+1 DE (DE) =DEEK (tlBO) DOKE NBO.DEEKdtE?) - RETURN 
506 : 

50B DATA DEBUTDEF 
510 DATA = ,DAT,A 

512 DATA REPETE,4 

514 DATA AVANCE,A 

516 DATA TOURNE,90 

51B DATA FIN 
520 DATA FINDEF 
522 : 

524 REM -HEXA- 

526 SGOSUB ‘LECT DAT’ DE=DE+1 DE (DE) =DEEK(BEO) DOKE HB0,0EEK(HE9) : RETURN 
528 : 

530 DATA DEBUTDEF 
532 DATA =,DAT,A 

534 DATA DIRECTION,0 

536 DATA REPETE, 6 

538 DATA AVANCE, A 

540 DATA TOURNE,60 

542 DATA FIN 
544 DATA FINDEF 
546 : 

548 REH- 


COPYTEL 
L'UTILISATION 
CONFORTABLE 
DU MINITEL 


Le MINITEL équipe de plus en 
plus de foyers et les factures télé¬ 
phoniques s'alourdissent ! Le 
temps de consultation d'un ser¬ 
veur, l'exploration de diverses 
arborescences n'est pas négli¬ 
geable, d'où l'idée de stocker en 
mémoire, puis sur disque, les dif¬ 
férentes pages reçues sur le Mini¬ 
tel. 

COPYTEL est livré avec un cor¬ 
don, établissant la liaison entre le 
Minitel et l'ORIC, d'un côté sur la 
prise DIN péri-informatique, de 
l'autre sur la prise imprimante. 
Au menu, réception, lecture, sau¬ 
vegarde, chargement, efface¬ 
ment, listage. On ne va pas vous 
donner tous les détails de fonc¬ 
tionnement des différentes 
options, mais sachez simplement 
que certaines sont très puissan¬ 
tes. 

Après avoir reçu une page, on 
peut la stocker (en mémoire). On 
relit ensuite toutes les pages, 
code par code si on le désire en 
visualisant les couleurs, inversant 
la vidéo etc. Plus qu'une simple 
visualisation ! 

Le pourcentage de mémoire 
occupée est indiqué. Des sécuri¬ 
tés ont été prévues lorsque la 
mémoire est pleine. Bien 
entendu, les pages stockées sur 
disque peuvent être détruites 
après utilisation. 

On peut sortir sur imprimante les 
pages reçues. A cet effet, plu¬ 
sieurs routines de hard copy ont 
été prévues. Le logiciel accepte 
même que son utilisateur intègre 
sa propre routine de recopie : une 
zone mémoire est réservée. 
COPYTEL est, à notre avis, un 
excellent produit dont la concep¬ 
tion a été bien pensée par les 
auteurs. Il comblera d'aise les pos¬ 
sesseurs de JASMIN et MICRO- 
DISC en réduisant la facture télé¬ 
phonique et en rendant l'utilisation 
du Minitel plus confortable. 
COPYTEL est un produit d'infor¬ 
matique et Nature (IN), tél.: 
90.95.20.04. 
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NIBBLE 

Informatique et Nature (IN) vient 
de développer un utilitaire de tra¬ 
vail sur disque particulièrement 
puissant. Fonctionnant sous le 
système d'exploitation SEDORIC, 
il est capable d'analyser toutes 
sortes de disquettes formatées 
pour un FDC 765 (le contrôleur 
de floppy). 

On peut donc lire et écrire toutes 
les informations contenues habi¬ 
tuellement par une disquette, 
secteur par secteur, piste par 
piste... voire octet par octet. Rien 
de plus facile, pour les connais¬ 
seurs, que de réparer une dis¬ 
quette endommagée ou de lire 
sur MICRODISC une disquette 
JASMIN. 

Bien que d'une utilisation facile, 
NIBBLE est livré avec une notice 
de 6 pages dont la dernière par¬ 
tie vous apprendra certainement 
beaucoup de choses sur la cons¬ 
titution d'une disquette. 

Les secteurs ou pistes lus peu¬ 
vent être édités sur imprimante. 
A cet effet, plusieurs modèles 
d'imprimantes sont prévus par le 
logiciel, de 40, 80 ou même 132 
colonnes. 

On retrouve toutes les fonctions 
classiques d'un éditeur de sec¬ 
teur avec, en plus, la possibilité 
de lire (et d'écrire) les pistes 
complètes, y compris les octets 
de synchronisation et les GAP. 
Pour les pistes formatées de 
façon particulière, il est possible 
de ne lire (et de reproduire) que 
le format, sans le contenu des 
secteurs initiaux. 

Un utilitaire qu'il faut absolument 


posséder pour disséquer intelli¬ 
gemment ses disquettes. 


MS-TEL 

UN SERVEUR POUR ORIC 

Un logiciel sans équivalent : voilà 
ce que vous propose IN (Informa¬ 
tique et Nature). Un simple Mini¬ 
tel, muni d'un modem retourna- 
ble, un ORIC-ATMOS et un Jas¬ 
min ou Microdisc, sont les 
composants matériels de la 
chaîne. Côté logiciel : MS-TEL 
(livré avec un boîtier capable 
d'assurer toutes les intercon¬ 
nexions), le langage Vidéotext 
pour micro-serveur. Oui, vous 
avez bien lu ! C'est bien d'un lan¬ 
gage qu'il s'agit, avec plus de 
100 instructions supplémentai¬ 
res, ajoutées au Basic de l'AT- 
MOS, assurant une gestion 
complète de la norme Vidéotext. 
Par la conception d'un simple 
programme Basic, les pages 
composées avec MS-TEL pour¬ 
ront être enchaînées : le serveur 
est né ! 

Toutes les instructions propres à 
MS-TEL peuvent être incorporées 
dans des programmes écrits en 
Basic. La gestion des 8 couleurs 
est assurée. Une notice de 16 
pages décrit, en détail, toutes ces 
instructions. Certaines comman¬ 
des, très puissantes, évitent l'en¬ 
voi individuel d'une série de 
codes Vidéotext. 

Les instructions agissent : 

— sur le Minitel serveur lui- 
même, en définissant son mode 
de fonctionnement ; 


— sur l'écran : gestion de cur¬ 
seur, choix des caractères et cou¬ 
leurs ; 

— sur la présentation des pages : 
encadrés, fenêtres, animation ; 

— sur la saisie du clavier ; 

— sur la gestion des pages et des 
mémoires. 

Une commande (DIAL) a même 
été prévue pour établir le dialogue 
entre l'opérateur du serveur et 
son correspohdant Minitel. 

Des exemples de programmation, 
ainsi que quelques informations 
sur la norme Vidéotext sont don¬ 
nés dans la notice. Tout ce qu’il 
faut pour démarrer ! 

A notre avis, ce logiciel perfor¬ 
mant, ne demandant pas l'utilisa¬ 
tion d'un modem spécifique, pour 
peu que celui du Minitel hôte soit 
"retournable'', devrait ravir les 
passionnés de télématique. Des 
micro-serveurs équipés d'ensem¬ 
bles ATMOS/drive ORIC ou JAS- 
MIN/MS-TEL risquent de voir le 
jour rapidement. Les applications 
sont multiples et devraient 
séduire les commerçants (promo¬ 
tions, produits nouveaux), voire 
des PME... 

Quant aux particuliers, ils trouve¬ 
ront, sans nul doute, des applica¬ 
tions diverses et variées à un 
micro-serveur personnel, ne 
serait-ce que pour ''se faire plai¬ 
sir”. 

MS-TEL : une solution pour faire 
patienter ceux qui attendent 
impatiemment le TELESTRAT. 
Vue la qualité du logiciel proposé, 
certains vont même se passer du 
TELESTRAT ! 

MS-TEL de Informatique et 
Nature : 90.95.20.04. 


CLAVIDACTr^M 

Pour savoir laper aussi bien que votre 
secrétaire exercices, explications, 
test de niveau (azerty qwerty) ATMOS-MOS 

dialogue rœ. M 

Créé/ votre réseau ORIC let AT MOS ou 
par téléphone, radio,etc... jouez ou 
travaillez ensemble logiciel et notice 

Ir.tl.,.^ 

l alco test du programmeur 
a consommer a jeun _ATMOS 


ELEPHORM-COLOR, 2 ’™ 


DAMAE r— 


_» (loxlo) 

sauvegarde gestion des régies.. ATMOS 


__ auteoSS. 1 

,ou»l"* u è FIXEZ T t0 fl« 

.AUTEURS- 00 


* * * NOUVEAUTES *☆***☆£• 

DIT..? D’AC ! 



Réaliser facilement vos questionnaires 
scolaires ou extra-scolaires édition sur 
imp.. copies, modif., etc_ATMOS - MO 5 

CITE DE CRISTALK." 

Un bon archéologue na doit perdre ni le 
fil de ses idées ni celui de ses recherches 
dans les 50000 ruelles_ATMOS-MOS 


MEFIES-TOI DE MEPHISTO 

ISS 


Rachetez votre âme. imprudemment vendue 
au diable ATMOS-MOS 


rigltmint à la commjnd# 

hrl 1$ Fr» 


□ CLAVIDACT 


_ — 8 0 rss tu Fssrileri 

□ ELEPHORM 


□DIALOGUE OELEPHORM ÜOAMAE 

__friiM____ Adrctit 


07500 60IINERAN0 - tel 15 40 4144 

□ DIT ?O AC 1 


□ CITE CRITAL 


OmephistôIÏiic O 

|mis O 


** 
*** 

K* 

* 1 * 

V 

* * 
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PETITES ANNONCES 


La plaça réaarvéa aux patitaa annonces aat 
limités. En conséquence, calles-cl passant 
dans leur ordre d'arrivés Par contra. Iss pstl- 
tss annonces farfelues sont systématique¬ 
ment rejetées... De même, comme il est peu 
probable qu'il existe des "généreux dona¬ 
teurs" de matériels ou de logiciels, les peti¬ 
tes annonces faisant appel è ces philantro- 
pes ne seront Insérées que si la plsce libre 
le permet. 

Seront refuaéea toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis "d'origine", alnel que 
toute annonce Incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent Impérativement 
nous parvenir sur la grille (découpée ou pho¬ 
tocopiée). le texte étant rédigé è raison d'un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 

Recherche interface ORIC-1/ATMOS Ech. progr. 
ORIC 1. J.P. PENIN. 39 rue J. BOUTE. 62840 LA 
VENUE, tél.: 21.66.21.53. 

Urgent vends moniteur Zénith vert : 600 P ou 
échange contre MCP 40. Emmanuel LORRAIN. 1 
rue Oorey, 90000 BELFORT. 

Vends ATMOS + Jasmin 2 + moniteur couleur 4 
MCP 40 + synthé. voc. + progs. + magnét. + 
livres : 7000 F. M. COLLOT, 3 rue Ste Pauline. 
70290 CHAMPAGNEY. 

Achète pour ATMOS moniteur NB + doc schéma, 
synthé vocal + cordon con. + imprim. * P. Lori- 
tel interf. + Hobbit, trait, texte. Tél.: 35.76.61.64. 

Vends lecteur de disquette 3" Jasmin 2 : 2000 F 
(pour ORICI, acheté le 07.09.85. Tél.: 
27.43.33.39. 

Cherche imprimante pour ORIC. Tél.: 47.66.89.77. 
Vends synthé Casio MT400 tbe servi 9 mois embal 
lage origine. Tél : 47 66.89.77. 


Vends logiciels K 7 ORIC 1/ATMOS (les 30 : 
300 F ; 50 : 400 F : 70 : 500 F : 100 : 700 F). L. 
MORBELLI. 12 rue Courtot, 8700 LIMOGES, tél 
65.50.20.30. 

Vends imprimante Seikosha GP 500A : 1700 F. 
tél.: 90.95.79.69. 

Vends joystick : CK 50 F + interface prog. 300 F 
4 prog. divers d'origine. P. BOURDON. SCE Trans 
Ban Hyères, 83800 TOULON Naval, tél.: 
94.65.19.58. 

Vends ORIC-1 + Jasmin 1 + ampli Bus + inter, 
joystick + plus de 100 progs K7 et D7. Le tout : 
4500 F. Tél,: 63 62.50.56 (après 20 h|. 

Echange 45 Ftebdogiciels + 50 logiciels du 

commerce 4 200 F contre imprimante MCP 40. 
Dominique OAUSSY, Toussaint. 76400 FECAMP. 

Vends Jasmin + disquettes + imprimante MCP 40 
+ interface tous jeux avec joysticks 4 livres 4 
K7 : 3000 F. A. BOIS-COLOMBES, tél.: 
47.80.78.22. 


Vends imprimante MCP 40 pour ORIC-1 ATMOS, 
achat décembre 84 : 700 F. Tél.: 87.92.60.61 
après 18 h. 

ATMOS disposant du Loritel cherche contact éga 
lement équipé pour échange de programmes. Tél.: 
(Il 43.45.03.75 de 19 à 21 h ou week end. 

Cherche programme de copie écran Hires pour 
ORIC-ATMOS avec imprimante Smith-Corona Fas 
text 80. Tél : 35 44.20.28. 

Vends ORIC 1 + imprimante Seikosha GP 50A + 
lecteur de K7 + nombreux logiciels + Péritel 
2000 F Tél : (Il 39 75.31 64 

Vends interface joystick + quickshot 1 : 220 F + 
moniteur couleur PAL/SECAM : 1300 F (achat 
2750 Fl. Tél.: 68.96.39.23. région Perpignan. 

Recherche personnes possédant Microdisc avec 
Sédoric pour échanges (le programmes. Didier DEL 
BECQUES. 7 rue de Gascogne, 62500 SAINT 
OMER 


Cherche circuit imprimé interface Minitel nu ou 
équipé. Faire offre à M. RABIET au 42.07.68 97 
(soir! ou 48.81.11.44 (bureau), 10 rue Palissy. 
94000 CRETEIL. 

Vends ORIC-1 complet + lecteur K7 + logiciels + 
interface poignées : 800 F Alain BENEDETTI, tél. : 
39.87.49.74 après 18 H. 

Vends ORIC ATMOS + péritel + livres + 11 k7 
de ieu (Super Jeep. Dangereusement Vôtre, etc), 
le tout pour 2000 F. Tél.: 27.41.23.09 après 18 h. 

Recherche jeux permettant affront, intell, artific. 
ATMOS (ex.: dames). Retour K7 et listings après 
copie. Lionel GALERNEAU. 85320 ROSNAY. 

Cherche amateur pour aide è la programmation sur 
ATMOS 4 Jasmin à Lyon. Tél : pur 78.62.76.27. 
après 20 h 78.69.08.26. 

Vends disquette Sedoric 4 manuel. Prix discuta¬ 
ble. ainsi que de nombreux programmes. Xavier 
DAUBIGEO. tél.: 57.51 58.79. 

Cherche contacts sur ATMOS pour êch. + inter 
face sur ORIC pour traiter Canal 4-. D. SEYARET. 
14 rue du Brotillon, 69310 PIERRE BENITE. 

Vends ATMOS 48 k 4 Péritel + carte 8 E/S + bus 
souple + interface manette + manette 4 nbr pro¬ 
grammes 4 livres 4 interrupteur : 1400 F. Tél.: 
45.79.95 35. 

Vends ORIC ATMOS : 500 F. Revues THEORIC n° 
5 à 17 : 150 F. Tél.: 61 40 42 47 après 20 h 

Vends ATMOS : 650 F. lmp. MCP 40 : 650 F. Mod 
NB 100 F. K7 jeux : 60 F pièce P TRIBOULET. 
tél.: 47.88.02.81 (soir). 

Vends ATMOS 4 moniteur couleur 4 7 K7 prog. 
4 manuel, prix à débattre. Tél.; 69.21.29.66 après 
19 h. 

Vends Graphiscop II table graphique (neuvel 4 
manuel + interface ORIC 4 logiciel : 1250 F. J.P. 
DESCAMPS. Bruges, tél : 56.39.27.06 

Echange trucs, astuces et ieux de tous genres sur 
ATMOS. Ecrire à D LE SAUX. 70 av. du Col. 
Fabien. 93420 VILLEPINTE. 


ANNONCEZ-VOUS!! 

I 

les petites annonces et les messages 



o- Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 

i- SORACOM, 10 Avenue du Général de Gaulle, 35170 BRUZ 
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Electronique sur AMSTRAD 
P. BEAUFILS 
Electronique sur MSX 

P. BEAUFILS 


TECHNIQUE 


Communiquez avex ZX81 
E. DUTERTRE et D. B0N0M0 
Programmes et interfaces 
2* édition 


90 F. 


Propagation des ondes, tome 1 

Serge CANIVENC, F8SH 

Un univers à découvrir 165 F 

Propagation des ondes, tome 2 

Serge CANIVENC, F8SH 

Cet ouvrage encore plus important 

traite des tous les modes de 

propagation en UHF 253 F 

Technique de le BLU — 2* édition 

G. RICAUD, F6CER 

Approche pratique de la BLU 95 F 

Concevoir un émetteur expérimental 

P. LOGLISCI 

Concevoir soi-même son émetteur ! 69 F 

Synthétiseurs de fréquence 

M. LEVREL 

Se familiariser avec les 

nouvelles techniques 125 F 

Interférences radio — des solutions 

F. MELLET et K. PIERRAT 

Des solutions à vos problèmes 

de brouillage 35 F 

Télévisions du monde 

P. GODOU 

Un catalogue de mires 

et une longue expérience 

mis à votre disposition par 

l'auteur 110 F 

Le radioamateur et la carte QSL 

Préfixes et QSL-managers et 

bureaux dans le monde 

72 pages 15 F 

QSO en radiotéléphonie 
français-anglais 

L. SIGRAND 

Un aide-mémoire pour des 

QSO plus faciles 25 F 

Cours de lecture au son 

Les cassettes avec livret 195 F 

La réception des satellites météo 

Loïc Kuhlmann 

Photos, schémas, montages 

Comment réaliser une station 145 F 

MEGAHERTZ broché n° 3 

(de 14 à 19) 70 F 


Communiquez avec ORIC 1 et ATMOS 

E. DUTERTRE, D. B0N0M0 145 F 

Mystères du Laser 

Denis BOURQUIN 

Connaître à fond sa machine 148 F 

Mystères d'Alice ou la pratique du 6803 
A. BONNEA’JD 

Une des meilleures critiques de la presse 151 F 

Mieux programmer sur ATMOS 
M. ARCHAMBAULT 

Tout un programme 110 F 

Interfaces pour ORIC 1 et ATMOS 
M. LEVREL 

Rendre son ORIC encore plus 

performant 59 F 

Apprenez l'électronique sur ORIC ATMOS 

P. BEAUFILS 

Mieux voir les phénomènes électroniques 110 F 


COLLECTION 

POCHE 


Jouez avec Hector 

E. DUTERTRE 

48 F 

Jouez avec Aquarius 

L. GENTY 

45 F 

Naviguez sur ORIC et ATMOS 

E. JACOB et J. PORTELLI 

45 F 

Extensions du ZX81 

E. DUTERTRE 

48 F 

Jouez avec AMSTRAD 

KERLOCH 

48 F 

MEGAHERTZ Hors Série 

Informatique 

30 F 

Transat Terre Lune 

Préface de 0. BAUDRY 

20 F 

Manœuvre du catamaran de croisière 

SEGALA 

45 F 

Jouez avec M05 

E. DUTERTRE 

Collection poche 

40 F 

PRESSE 



Communiquez avec AMSTRAD 

D. B0N0M0 et E. DUTERTRE 

90 F 

CPC Revue AMSTRAD 

Le numéro 

19 F 

Mieux programmer sur AMSTRAD 
M. ARCHAMBAULT 

85 F 

(Mensuel) abonnement 1 an . 

. 180 F 

Plus loin avec le X07 


THEORIC Revue ORICIATMOS 


Michel GANTIER 


Le numéro 

30 F 

Un titre pour un programme ! 

85 F 

(Mensuel) abonnement 1 an 

270 F 



Réédition des programmes du livre 

Communiquez avec votre ZX81 150 F 

Canette programmes Communiquez avec AMSTRAD 190 F 
Disquette programmes Communiquez avec AMSTRAD 250 F 

Cassette programmes Communiquez avec ORIC et ATMOS 190 F 


Précisez ORIC-1 ou ATMOS à la commande. 


Adressez vos commandes à : 
SORACOM, La Haie de Pan, 35170 BRUZ 

(Règlement comptant à la commande + port 10 %). 

















ENFIN DISPONIBLE ! 

Nous vous l'annoncions depuis longtemps 
Vous l'attendiez impatiemment. 
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ATTENTION ! 

Les abonnés à THEORIC 
recevront une offre spéciale 
à prix très réduit... 


Prix : 151 F + 9 F de port. 
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LE LIVRE 
QUE TOUT 
PROGRAMMEUR 
’Qi/f AVANCE 

DOIT POSSEDER 


mm 


La Haie de Parr 
35170 BRUZ 


